#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef int /*<<< orphan*/ FILE;

/* Variables and functions */
int asin(double);
double atan2(double, double);
double cos(double);
double *double_alloc(int);
int /*<<< orphan*/ fprintf(int /*<<< orphan*/ *, char *, ...);
int /*<<< orphan*/ free(void *);
double sin(double);
double sqrt(int);
void prad_pat(double **TM, FILE *ps) {
  int i, j, k, l, N = 20, M;
  double x, y, ymax, rad;
  double azi, ain, rpp, *r;
  r = double_alloc(3);
  fprintf(ps, "newpath\n");
  for (i = -N; i <= N; i++) {
    x = ((double)i) / ((double)N);
    ymax = sqrt(1. - x * x);
    M = (int)(((double)N) * ymax);
    if (M > 0) {
      for (j = -M; j <= M; j++) {
        y = ((double)j) / ((double)N);
        rad = sqrt(x * x + y * y);
        azi = atan2(x, y);
        ain = 2. * asin(rad / sqrt(2.));
        r[0] = sin(ain) * cos(azi);
        r[1] = sin(ain) * sin(azi);
        r[2] = cos(ain);
        rpp = 0.;
        for (k = 0; k < 3; k++)
          for (l = 0; l < 3; l++)
            rpp = rpp + r[k] * TM[k][l] * r[l];
        if (rpp > 0.) {
          fprintf(ps, "%7.2f %7.2f .01 add exch moveto\n", y, x);
          fprintf(ps, "%7.2f %7.2f 0.01 0 360 arc\n", x, y);
        }
      }
    }
  }
  fprintf(ps, "1 0 moveto\n");
  fprintf(ps, "0 0 1 0 360 arc\n");
  fprintf(ps, "stroke\n");
  free((void *)r);
}


x86 assembly (clang, -O0):
<prad_pat>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x14,-0x24(%rbp)
mov    $0x3,%edi
call   1080 <double_alloc@plt>
mov    %rax,-0x68(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xe5d(%rip),%rsi
mov    $0x0,%al
call   1050 <fprintf@plt>
xor    %eax,%eax
sub    -0x24(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x24(%rbp),%eax
jg     1449 <prad_pat+0x2c9>
cvtsi2sdl -0x14(%rbp),%xmm0
cvtsi2sdl -0x24(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movsd  -0x30(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm1
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm1,%xmm0
movsd  0xdf2(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edi
call   10a0 <sqrt@plt>
movsd  %xmm0,-0x40(%rbp)
cvtsi2sdl -0x24(%rbp),%xmm0
mulsd  -0x40(%rbp),%xmm0
cvttsd2si %xmm0,%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x28(%rbp)
jle    1436 <prad_pat+0x2b6>
xor    %eax,%eax
sub    -0x28(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x28(%rbp),%eax
jg     1431 <prad_pat+0x2b1>
cvtsi2sdl -0x18(%rbp),%xmm0
cvtsi2sdl -0x24(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x30(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm2
movsd  -0x38(%rbp),%xmm1
mulsd  -0x38(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%edi
call   10a0 <sqrt@plt>
movsd  %xmm0,-0x48(%rbp)
movsd  -0x30(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm1
call   1040 <atan2@plt>
movsd  %xmm0,-0x50(%rbp)
movsd  -0x48(%rbp),%xmm0
movsd  %xmm0,-0x80(%rbp)
mov    $0x2,%edi
call   10a0 <sqrt@plt>
movaps %xmm0,%xmm1
movsd  -0x80(%rbp),%xmm0
divsd  %xmm1,%xmm0
call   1070 <asin@plt>
cvtsi2sd %eax,%xmm1
movsd  0xd37(%rip),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
call   1060 <sin@plt>
movsd  %xmm0,-0x78(%rbp)
movsd  -0x50(%rbp),%xmm0
call   1090 <cos@plt>
movaps %xmm0,%xmm1
movsd  -0x78(%rbp),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x68(%rbp),%rax
movsd  %xmm0,(%rax)
movsd  -0x58(%rbp),%xmm0
call   1060 <sin@plt>
movsd  %xmm0,-0x70(%rbp)
movsd  -0x50(%rbp),%xmm0
call   1060 <sin@plt>
movaps %xmm0,%xmm1
movsd  -0x70(%rbp),%xmm0
mulsd  %xmm1,%xmm0
mov    -0x68(%rbp),%rax
movsd  %xmm0,0x8(%rax)
movsd  -0x58(%rbp),%xmm0
call   1090 <cos@plt>
mov    -0x68(%rbp),%rax
movsd  %xmm0,0x10(%rax)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x60(%rbp)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x3,-0x1c(%rbp)
jge    13d4 <prad_pat+0x254>
movl   $0x0,-0x20(%rbp)
cmpl   $0x3,-0x20(%rbp)
jge    13c1 <prad_pat+0x241>
movsd  -0x60(%rbp),%xmm1
mov    -0x68(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
movslq -0x20(%rbp),%rcx
mulsd  (%rax,%rcx,8),%xmm0
mov    -0x68(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1368 <prad_pat+0x1e8>
jmp    13c6 <prad_pat+0x246>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1357 <prad_pat+0x1d7>
movsd  -0x60(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jbe    141e <prad_pat+0x29e>
mov    -0x10(%rbp),%rdi
movsd  -0x38(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm1
lea    0xc1e(%rip),%rsi
mov    $0x2,%al
call   1050 <fprintf@plt>
mov    -0x10(%rbp),%rdi
movsd  -0x30(%rbp),%xmm0
movsd  -0x38(%rbp),%xmm1
lea    0xc23(%rip),%rsi
mov    $0x2,%al
call   1050 <fprintf@plt>
jmp    1423 <prad_pat+0x2a3>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1243 <prad_pat+0xc3>
jmp    1436 <prad_pat+0x2b6>
jmp    143b <prad_pat+0x2bb>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    11c2 <prad_pat+0x42>
mov    -0x10(%rbp),%rdi
lea    0xc02(%rip),%rsi
mov    $0x0,%al
call   1050 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xbfc(%rip),%rsi
mov    $0x0,%al
call   1050 <fprintf@plt>
mov    -0x10(%rbp),%rdi
lea    0xbfb(%rip),%rsi
mov    $0x0,%al
call   1050 <fprintf@plt>
mov    -0x68(%rbp),%rdi
call   1030 <free@plt>
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<prad_pat>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rsi,%r14
mov    %rdi,%r15
mov    $0x3,%edi
call   1080 <double_alloc@plt>
mov    %rax,%rbx
lea    0xe60(%rip),%rdi
mov    $0x8,%esi
mov    $0x1,%edx
mov    %r14,%rcx
call   10b0 <fwrite@plt>
mov    $0xffffffec,%ebp
movsd  0xe29(%rip),%xmm0
movsd  0xe31(%rip),%xmm1
jmp    120e <prad_pat+0x7e>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movsd  0x28(%rsp),%xmm0
movsd  0xe12(%rip),%xmm1
addsd  %xmm1,%xmm0
add    $0x1,%ebp
cmp    $0x15,%ebp
je     143b <prad_pat+0x2ab>
movsd  %xmm0,0x28(%rsp)
movapd %xmm0,%xmm2
movsd  0xde8(%rip),%xmm0
divsd  %xmm0,%xmm2
movsd  %xmm2,0x10(%rsp)
mulsd  %xmm2,%xmm2
movapd %xmm1,%xmm0
movsd  %xmm2,0x30(%rsp)
subsd  %xmm2,%xmm0
cvttsd2si %xmm0,%edi
call   10a0 <sqrt@plt>
mulsd  0xdbb(%rip),%xmm0
cvttsd2si %xmm0,%eax
test   %eax,%eax
jle    11f0 <prad_pat+0x60>
mov    %eax,%r12d
neg    %r12d
lea    (%rax,%rax,1),%r13d
add    $0x1,%r13d
jmp    127e <prad_pat+0xee>
cs nopw 0x0(%rax,%rax,1)
nop
add    $0x1,%r12d
add    $0xffffffff,%r13d
je     11f0 <prad_pat+0x60>
xorps  %xmm0,%xmm0
cvtsi2sd %r12d,%xmm0
divsd  0xd7a(%rip),%xmm0
movsd  %xmm0,0x18(%rsp)
mulsd  %xmm0,%xmm0
addsd  0x30(%rsp),%xmm0
cvttsd2si %xmm0,%edi
call   10a0 <sqrt@plt>
movsd  %xmm0,(%rsp)
movsd  0x10(%rsp),%xmm0
movsd  0x18(%rsp),%xmm1
call   1040 <atan2@plt>
movsd  %xmm0,0x20(%rsp)
mov    $0x2,%edi
call   10a0 <sqrt@plt>
movsd  (%rsp),%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
call   1070 <asin@plt>
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
addsd  %xmm0,%xmm0
movsd  %xmm0,(%rsp)
call   1060 <sin@plt>
movsd  %xmm0,0x8(%rsp)
movsd  0x20(%rsp),%xmm0
call   1090 <cos@plt>
mulsd  0x8(%rsp),%xmm0
movsd  %xmm0,(%rbx)
movsd  (%rsp),%xmm0
call   1060 <sin@plt>
movsd  %xmm0,0x8(%rsp)
movsd  0x20(%rsp),%xmm0
call   1060 <sin@plt>
mulsd  0x8(%rsp),%xmm0
movsd  %xmm0,0x8(%rbx)
movsd  (%rsp),%xmm0
call   1090 <cos@plt>
movsd  %xmm0,0x10(%rbx)
movsd  (%rbx),%xmm2
movsd  0x8(%rbx),%xmm1
mov    (%r15),%rcx
mov    0x8(%r15),%rax
movsd  (%rcx),%xmm3
mulsd  %xmm2,%xmm3
mulsd  %xmm2,%xmm3
xorpd  %xmm5,%xmm5
addsd  %xmm5,%xmm3
movsd  0x8(%rcx),%xmm4
mulsd  %xmm2,%xmm4
mulsd  %xmm1,%xmm4
addsd  %xmm3,%xmm4
movsd  0x10(%rcx),%xmm3
mulsd  %xmm2,%xmm3
mulsd  %xmm0,%xmm3
addsd  %xmm4,%xmm3
movsd  (%rax),%xmm4
mulsd  %xmm1,%xmm4
mulsd  %xmm2,%xmm4
addsd  %xmm3,%xmm4
movsd  0x8(%rax),%xmm3
mulsd  %xmm1,%xmm3
mulsd  %xmm1,%xmm3
addsd  %xmm4,%xmm3
movsd  0x10(%rax),%xmm4
mulsd  %xmm1,%xmm4
mulsd  %xmm0,%xmm4
addsd  %xmm3,%xmm4
mov    0x10(%r15),%rax
movsd  (%rax),%xmm3
mulsd  %xmm0,%xmm3
mulsd  %xmm2,%xmm3
addsd  %xmm4,%xmm3
movsd  0x8(%rax),%xmm2
mulsd  %xmm0,%xmm2
mulsd  %xmm1,%xmm2
addsd  %xmm3,%xmm2
movsd  0x10(%rax),%xmm1
mulsd  %xmm0,%xmm1
mulsd  %xmm0,%xmm1
addsd  %xmm2,%xmm1
ucomisd %xmm5,%xmm1
jbe    1270 <prad_pat+0xe0>
mov    %r14,%rdi
lea    0xc1b(%rip),%rsi
movsd  0x18(%rsp),%xmm0
movsd  0x10(%rsp),%xmm1
mov    $0x2,%al
call   1050 <fprintf@plt>
mov    %r14,%rdi
lea    0xc1f(%rip),%rsi
movsd  0x10(%rsp),%xmm0
movsd  0x18(%rsp),%xmm1
mov    $0x2,%al
call   1050 <fprintf@plt>
jmp    1270 <prad_pat+0xe0>
lea    0xc1c(%rip),%rdi
mov    $0xb,%esi
mov    $0x1,%edx
mov    %r14,%rcx
call   10b0 <fwrite@plt>
lea    0xc0f(%rip),%rdi
mov    $0x10,%esi
mov    $0x1,%edx
mov    %r14,%rcx
call   10b0 <fwrite@plt>
lea    0xc07(%rip),%rdi
mov    $0x7,%esi
mov    $0x1,%edx
mov    %r14,%rcx
call   10b0 <fwrite@plt>
mov    %rbx,%rdi
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <free@plt>

LLVM IR (-O0):
@.str = [9 x i8] c"newpath\0A\00"
@.str.1 = [33 x i8] c"%7.2f %7.2f .01 add exch moveto\0A\00"
@.str.2 = [28 x i8] c"%7.2f %7.2f 0.01 0 360 arc\0A\00"
@.str.3 = [12 x i8] c"1 0 moveto\0A\00"
@.str.4 = [17 x i8] c"0 0 1 0 360 arc\0A\00"
@.str.5 = [8 x i8] c"stroke\0A\00"
define void @prad_pat(double** %0, i32* %1) {
%3 = alloca double**
%4 = alloca i32*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca double
%18 = alloca double*
store double** %0, double*** %3
store i32* %1, i32** %4
store i32 20, i32* %9
%19 = call double* @double_alloc(i32 3)
store double* %19, double** %18
%20 = load i32*, i32** %4
%21 = call i32 (i32*, i8*, ...) @fprintf(i32* %20, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0))
%22 = load i32, i32* %9
%23 = sub nsw i32 0, %22
store i32 %23, i32* %5
br label %24
24: ; preds = %150, %2
%25 = load i32, i32* %5
%26 = load i32, i32* %9
%27 = icmp sle i32 %25, %26
br i1 %27, label %28, label %153
28: ; preds = %24
%29 = load i32, i32* %5
%30 = sitofp i32 %29 to double
%31 = load i32, i32* %9
%32 = sitofp i32 %31 to double
%33 = fdiv double %30, %32
store double %33, double* %11
%34 = load double, double* %11
%35 = load double, double* %11
%36 = fneg double %34
%37 = call double @llvm.fmuladd.f64(double %36, double %35, double 1.000000e+00)
%38 = fptosi double %37 to i32
%39 = call double @sqrt(i32 %38)
store double %39, double* %13
%40 = load i32, i32* %9
%41 = sitofp i32 %40 to double
%42 = load double, double* %13
%43 = fmul double %41, %42
%44 = fptosi double %43 to i32
store i32 %44, i32* %10
%45 = load i32, i32* %10
%46 = icmp sgt i32 %45, 0
br i1 %46, label %47, label %149
47: ; preds = %28
%48 = load i32, i32* %10
%49 = sub nsw i32 0, %48
store i32 %49, i32* %6
br label %50
50: ; preds = %145, %47
%51 = load i32, i32* %6
%52 = load i32, i32* %10
%53 = icmp sle i32 %51, %52
br i1 %53, label %54, label %148
54: ; preds = %50
%55 = load i32, i32* %6
%56 = sitofp i32 %55 to double
%57 = load i32, i32* %9
%58 = sitofp i32 %57 to double
%59 = fdiv double %56, %58
store double %59, double* %12
%60 = load double, double* %11
%61 = load double, double* %11
%62 = load double, double* %12
%63 = load double, double* %12
%64 = fmul double %62, %63
%65 = call double @llvm.fmuladd.f64(double %60, double %61, double %64)
%66 = fptosi double %65 to i32
%67 = call double @sqrt(i32 %66)
store double %67, double* %14
%68 = load double, double* %11
%69 = load double, double* %12
%70 = call double @atan2(double %68, double %69)
store double %70, double* %15
%71 = load double, double* %14
%72 = call double @sqrt(i32 2)
%73 = fdiv double %71, %72
%74 = call i32 @asin(double %73)
%75 = sitofp i32 %74 to double
%76 = fmul double 2.000000e+00, %75
store double %76, double* %16
%77 = load double, double* %16
%78 = call double @sin(double %77)
%79 = load double, double* %15
%80 = call double @cos(double %79)
%81 = fmul double %78, %80
%82 = load double*, double** %18
%83 = getelementptr inbounds double, double* %82, i64 0
store double %81, double* %83
%84 = load double, double* %16
%85 = call double @sin(double %84)
%86 = load double, double* %15
%87 = call double @sin(double %86)
%88 = fmul double %85, %87
%89 = load double*, double** %18
%90 = getelementptr inbounds double, double* %89, i64 1
store double %88, double* %90
%91 = load double, double* %16
%92 = call double @cos(double %91)
%93 = load double*, double** %18
%94 = getelementptr inbounds double, double* %93, i64 2
store double %92, double* %94
store double 0.000000e+00, double* %17
store i32 0, i32* %7
br label %95
95: ; preds = %129, %54
%96 = load i32, i32* %7
%97 = icmp slt i32 %96, 3
br i1 %97, label %98, label %132
98: ; preds = %95
store i32 0, i32* %8
br label %99
99: ; preds = %125, %98
%100 = load i32, i32* %8
%101 = icmp slt i32 %100, 3
br i1 %101, label %102, label %128
102: ; preds = %99
%103 = load double, double* %17
%104 = load double*, double** %18
%105 = load i32, i32* %7
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds double, double* %104, i64 %106
%108 = load double, double* %107
%109 = load double**, double*** %3
%110 = load i32, i32* %7
%111 = sext i32 %110 to i64
%112 = getelementptr inbounds double*, double** %109, i64 %111
%113 = load double*, double** %112
%114 = load i32, i32* %8
%115 = sext i32 %114 to i64
%116 = getelementptr inbounds double, double* %113, i64 %115
%117 = load double, double* %116
%118 = fmul double %108, %117
%119 = load double*, double** %18
%120 = load i32, i32* %8
%121 = sext i32 %120 to i64
%122 = getelementptr inbounds double, double* %119, i64 %121
%123 = load double, double* %122
%124 = call double @llvm.fmuladd.f64(double %118, double %123, double %103)
store double %124, double* %17
br label %125
125: ; preds = %102
%126 = load i32, i32* %8
%127 = add nsw i32 %126, 1
store i32 %127, i32* %8
br label %99
128: ; preds = %99
br label %129
129: ; preds = %128
%130 = load i32, i32* %7
%131 = add nsw i32 %130, 1
store i32 %131, i32* %7
br label %95
132: ; preds = %95
%133 = load double, double* %17
%134 = fcmp ogt double %133, 0.000000e+00
br i1 %134, label %135, label %144
135: ; preds = %132
%136 = load i32*, i32** %4
%137 = load double, double* %12
%138 = load double, double* %11
%139 = call i32 (i32*, i8*, ...) @fprintf(i32* %136, i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str.1, i64 0, i64 0), double %137, double %138)
%140 = load i32*, i32** %4
%141 = load double, double* %11
%142 = load double, double* %12
%143 = call i32 (i32*, i8*, ...) @fprintf(i32* %140, i8* getelementptr inbounds ([28 x i8], [28 x i8]* @.str.2, i64 0, i64 0), double %141, double %142)
br label %144
144: ; preds = %135, %132
br label %145
145: ; preds = %144
%146 = load i32, i32* %6
%147 = add nsw i32 %146, 1
store i32 %147, i32* %6
br label %50
148: ; preds = %50
br label %149
149: ; preds = %148, %28
br label %150
150: ; preds = %149
%151 = load i32, i32* %5
%152 = add nsw i32 %151, 1
store i32 %152, i32* %5
br label %24
153: ; preds = %24
%154 = load i32*, i32** %4
%155 = call i32 (i32*, i8*, ...) @fprintf(i32* %154, i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0))
%156 = load i32*, i32** %4
%157 = call i32 (i32*, i8*, ...) @fprintf(i32* %156, i8* getelementptr inbounds ([17 x i8], [17 x i8]* @.str.4, i64 0, i64 0))
%158 = load i32*, i32** %4
%159 = call i32 (i32*, i8*, ...) @fprintf(i32* %158, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.5, i64 0, i64 0))
%160 = load double*, double** %18
%161 = bitcast double* %160 to i8*
%162 = call i32 @free(i8* %161)
ret void
}

LLVM IR (-O2):
@.str = [9 x i8] c"newpath\0A\00"
@.str.1 = [33 x i8] c"%7.2f %7.2f .01 add exch moveto\0A\00"
@.str.2 = [28 x i8] c"%7.2f %7.2f 0.01 0 360 arc\0A\00"
@.str.3 = [12 x i8] c"1 0 moveto\0A\00"
@.str.4 = [17 x i8] c"0 0 1 0 360 arc\0A\00"
@.str.5 = [8 x i8] c"stroke\0A\00"
define void @prad_pat(double** nocapture %0, i32* nocapture %1) {
%3 = tail call double* @double_alloc(i32 3)
%4 = tail call i64 @fwrite(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i64 8, i64 1, i32* %1)
%5 = getelementptr inbounds double, double* %3, i64 1
%6 = getelementptr inbounds double, double* %3, i64 2
%7 = getelementptr inbounds double*, double** %0, i64 1
%8 = getelementptr inbounds double*, double** %0, i64 2
br label %9
9: ; preds = %2, %88
%10 = phi i32 [ -20, %2 ], [ %89, %88 ]
%11 = sitofp i32 %10 to double
%12 = fdiv double %11, 2.000000e+01
%13 = fneg double %12
%14 = tail call double @llvm.fmuladd.f64(double %13, double %12, double 1.000000e+00)
%15 = fptosi double %14 to i32
%16 = tail call double @sqrt(i32 %15)
%17 = fmul double %16, 2.000000e+01
%18 = fptosi double %17 to i32
%19 = icmp slt i32 %18, 1
br i1 %19, label %88, label %20
20: ; preds = %9
%21 = sub nsw i32 0, %18
br label %22
22: ; preds = %20, %85
%23 = phi i32 [ %86, %85 ], [ %21, %20 ]
%24 = sitofp i32 %23 to double
%25 = fdiv double %24, 2.000000e+01
%26 = fmul double %25, %25
%27 = tail call double @llvm.fmuladd.f64(double %12, double %12, double %26)
%28 = fptosi double %27 to i32
%29 = tail call double @sqrt(i32 %28)
%30 = tail call double @atan2(double %12, double %25)
%31 = tail call double @sqrt(i32 2)
%32 = fdiv double %29, %31
%33 = tail call i32 @asin(double %32)
%34 = sitofp i32 %33 to double
%35 = fmul double %34, 2.000000e+00
%36 = tail call double @sin(double %35)
%37 = tail call double @cos(double %30)
%38 = fmul double %36, %37
store double %38, double* %3
%39 = tail call double @sin(double %35)
%40 = tail call double @sin(double %30)
%41 = fmul double %39, %40
store double %41, double* %5
%42 = tail call double @cos(double %35)
store double %42, double* %6
%43 = load double, double* %3
%44 = load double*, double** %0
%45 = load double, double* %44
%46 = fmul double %43, %45
%47 = tail call double @llvm.fmuladd.f64(double %46, double %43, double 0.000000e+00)
%48 = getelementptr inbounds double, double* %44, i64 1
%49 = load double, double* %48
%50 = fmul double %43, %49
%51 = load double, double* %5
%52 = tail call double @llvm.fmuladd.f64(double %50, double %51, double %47)
%53 = getelementptr inbounds double, double* %44, i64 2
%54 = load double, double* %53
%55 = fmul double %43, %54
%56 = tail call double @llvm.fmuladd.f64(double %55, double %42, double %52)
%57 = load double*, double** %7
%58 = load double, double* %57
%59 = fmul double %51, %58
%60 = tail call double @llvm.fmuladd.f64(double %59, double %43, double %56)
%61 = getelementptr inbounds double, double* %57, i64 1
%62 = load double, double* %61
%63 = fmul double %51, %62
%64 = tail call double @llvm.fmuladd.f64(double %63, double %51, double %60)
%65 = getelementptr inbounds double, double* %57, i64 2
%66 = load double, double* %65
%67 = fmul double %51, %66
%68 = tail call double @llvm.fmuladd.f64(double %67, double %42, double %64)
%69 = load double*, double** %8
%70 = load double, double* %69
%71 = fmul double %42, %70
%72 = tail call double @llvm.fmuladd.f64(double %71, double %43, double %68)
%73 = getelementptr inbounds double, double* %69, i64 1
%74 = load double, double* %73
%75 = fmul double %42, %74
%76 = tail call double @llvm.fmuladd.f64(double %75, double %51, double %72)
%77 = getelementptr inbounds double, double* %69, i64 2
%78 = load double, double* %77
%79 = fmul double %42, %78
%80 = tail call double @llvm.fmuladd.f64(double %79, double %42, double %76)
%81 = fcmp ogt double %80, 0.000000e+00
br i1 %81, label %82, label %85
82: ; preds = %22
%83 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %1, i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str.1, i64 0, i64 0), double %25, double %12)
%84 = tail call i32 (i32*, i8*, ...) @fprintf(i32* %1, i8* getelementptr inbounds ([28 x i8], [28 x i8]* @.str.2, i64 0, i64 0), double %12, double %25)
br label %85
85: ; preds = %22, %82
%86 = add i32 %23, 1
%87 = icmp eq i32 %23, %18
br i1 %87, label %88, label %22
88: ; preds = %85, %9
%89 = add nsw i32 %10, 1
%90 = icmp eq i32 %89, 21
br i1 %90, label %91, label %9
91: ; preds = %88
%92 = tail call i64 @fwrite(i8* getelementptr inbounds ([12 x i8], [12 x i8]* @.str.3, i64 0, i64 0), i64 11, i64 1, i32* %1)
%93 = tail call i64 @fwrite(i8* getelementptr inbounds ([17 x i8], [17 x i8]* @.str.4, i64 0, i64 0), i64 16, i64 1, i32* %1)
%94 = tail call i64 @fwrite(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.5, i64 0, i64 0), i64 7, i64 1, i32* %1)
%95 = bitcast double* %3 to i8*
%96 = tail call i32 @free(i8* %95)
ret void
}