user: Please show me the C implementation that matches the assembly code listed below:

```asm
<ortikon>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,%r13
  mov    %esi,%r12d
  mov    %edx,%ebp
  movss  D36(%rip),%xmm1
  mov    %edx,%r9d
  mov    %esi,%r8d
  mov    $0x0,%ecx
  pxor   %xmm0,%xmm0
  call   <draw_rectangle@plt>
  lea    0x7(%rbp),%ebx
  test   %ebp,%ebp
  cmovns %ebp,%ebx
  sar    $0x3,%ebx
  pxor   %xmm6,%xmm6
  cvtsi2sd %r12d,%xmm6
  movsd  %xmm6,0x8(%rsp)
  movapd %xmm6,%xmm7
  mulsd  D109(%rip),%xmm7
  mov    D98(%rip),%rax
  movq   %rax,%xmm2
  mov    $0xa,%r9d
  mov    $0x0,%r8d
  mov    %ebx,%ecx
  movsd  %xmm7,0x10(%rsp)
  movapd %xmm7,%xmm1
  mov    D18(%rip),%rax
  movq   %rax,%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_circle@plt>
  movsd  D198(%rip),%xmm2
  mulsd  0x8(%rsp),%xmm2
  movapd %xmm2,%xmm3
  mov    D98(%rip),%rax
  movq   %rax,%xmm2
  mov    $0x14,%r9d
  mov    $0x0,%r8d
  mov    %ebx,%ecx
  movsd  %xmm3,(%rsp)
  movapd %xmm3,%xmm1
  mov    D18(%rip),%rax
  movq   %rax,%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_circle@plt>
  movsd  D65(%rip),%xmm2
  mov    $0x14,%r9d
  mov    $0x0,%r8d
  mov    %ebx,%ecx
  movsd  (%rsp),%xmm3
  addsd  D88(%rip),%xmm3
  movapd %xmm3,%xmm1
  mov    D18(%rip),%rax
  movq   %rax,%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_circle@plt>
  lea    0x0(%rbp,%rbp,2),%eax
  lea    0x3(%rax),%r15d
  test   %eax,%eax
  cmovns %eax,%r15d
  sar    $0x2,%r15d
  lea    0x3(%rbp),%ebx
  test   %ebp,%ebp
  cmovns %ebp,%ebx
  sar    $0x2,%ebx
  push   $0x1
  push   %r15
  movsd  D217(%rip),%xmm1
  movsd  D39(%rip),%xmm0
  cvttsd2si 0x20(%rsp),%r9d
  mov    %ebx,%r8d
  mov    $0x0,%ecx
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_gradient@plt>
  movslq %r12d,%rax
  imul   $0x66666667,%rax,%rax
  sar    $0x23,%rax
  mov    %r12d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  movsd  0x18(%rsp),%xmm0
  mulsd  D133(%rip),%xmm0
  movss  D162(%rip),%xmm1
  mov    %r15d,%r9d
  mov    %eax,0x18(%rsp)
  mov    %eax,%r8d
  mov    %ebx,%ecx
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  mov    %r12d,%eax
  shl    $0x4,%eax
  add    %r12d,%eax
  movslq %eax,%rcx
  imul   $0x66666667,%rcx,%rcx
  sar    $0x24,%rcx
  sar    $0x1f,%eax
  sub    %eax,%ecx
  push   $0x1
  push   %r15
  mov    D198(%rip),%rax
  movq   %rax,%xmm1
  movsd  D158(%rip),%xmm0
  mov    0x28(%rsp),%r9d
  mov    %ebx,%r8d
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_gradient@plt>
  add    $0x20,%rsp
  cmp    %ebp,%ebx
  jge    L4
  mov    %ebx,%r14d
  movslq %ebp,%rbx
  imul   $0x38e38e39,%rbx,%rbx
  sar    $0x21,%rbx
  mov    %ebp,%eax
  sar    $0x1f,%eax
  sub    %eax,%ebx
  lea    0x0(%rbp,%rbp,1),%edx
  movslq %edx,%rax
  imul   $0x38e38e39,%rax,%rax
  sar    $0x21,%rax
  sar    $0x1f,%edx
  sub    %edx,%eax
  mov    %eax,0x1c(%rsp)
L17:
  movss  D0(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  movsd  (%rsp),%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %ebx,%xmm0
  movapd %xmm0,%xmm4
  addsd  (%rsp),%xmm4
  movsd  %xmm4,0x8(%rsp)
  movss  D34(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  movapd %xmm4,%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x1c(%rsp),%xmm0
  movapd %xmm0,%xmm5
  addsd  (%rsp),%xmm5
  movsd  %xmm5,0x10(%rsp)
  movss  D0(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  movapd %xmm5,%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  lea    (%rbx,%r14,1),%r15d
  movss  D34(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r15d,%ecx
  movsd  (%rsp),%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  movss  D0(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r15d,%ecx
  movsd  0x8(%rsp),%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  movss  D34(%rip),%xmm1
  mov    %ebx,%r9d
  mov    %ebx,%r8d
  mov    %r15d,%ecx
  movsd  0x10(%rsp),%xmm0
  mov    %ebp,%edx
  mov    %r12d,%esi
  mov    %r13,%rdi
  call   <draw_rectangle@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %ebp,%xmm0
  divsd  D208(%rip),%xmm0
  pxor   %xmm1,%xmm1
  cvtsi2sd %r14d,%xmm1
  addsd  %xmm1,%xmm0
  cvttsd2si %xmm0,%r14d
  cmp    %r14d,%ebp
  jg     L17
L4:
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: unpack_data
arguments: label: D36
datatype: f32
name: unpack_data
arguments: label: D109
datatype: f64
name: unpack_data
arguments: label: D98
datatype: f64
name: unpack_data
arguments: label: D18
datatype: f64
name: unpack_data
arguments: label: D198
datatype: byte[8]
name: unpack_data
arguments: label: D65
datatype: f64
name: unpack_data
arguments: label: D88
datatype: byte[8]
name: unpack_data
arguments: label: D217
datatype: f64
name: unpack_data
arguments: label: D39
datatype: f64
name: unpack_data
arguments: label: D133
datatype: f64
name: unpack_data
arguments: label: D162
datatype: f32
name: unpack_data
arguments: label: D158
datatype: byte[8]
name: unpack_data
arguments: label: D0
datatype: f32
name: unpack_data
arguments: label: D34
datatype: f32
name: unpack_data
arguments: label: D208
datatype: f64

tool: D36: 0.6

tool: D109: 0.3

tool: D98: 0.95

tool: D18: 1

tool: {"D198": [0x33,0x33,0x33,0x33,0x33,0x33,0xe3,0x3f]}

tool: D65: 0.05

tool: {"D88": [0x00,0x00,0x00,0x00,0x00,0x00,0x44,0x40]}

tool: D217: 0.094

tool: D39: 0.84

tool: D133: 0.13

tool: D162: 0.97

tool: {"D158": [0x0a,0xd7,0xa3,0x70,0x3d,0x0a,0xef,0x3f]}

tool: D0: 0.1

tool: D34: 0.9

tool: D208: 4.5

assistant: ```c
void ortikon(float *sl, int w, int h) {
  int i;
  float s1, s2;
  draw_rectangle(sl, w, h, 0, 0, w, h, 0.6);
  draw_circle(sl, w, h, 1.0, 0.3 * w, h / 8, 0, 10, 0.95);
  draw_circle(sl, w, h, 1.0, 0.6 * w, h / 8, 0, 20, 0.95);
  draw_circle(sl, w, h, 1.0, 0.6 * w + 40, h / 8, 0, 20, 0.05);
  draw_gradient(sl, w, h, 0, h / 4, 0.3 * w, 3 * h / 4, 0.84, 0.094, 1);
  draw_rectangle(sl, w, h, 0.13 * w, h / 4, w / 20, 3 * h / 4, 0.97);
  draw_gradient(sl, w, h, 17 * w / 40, h / 4, w / 20, 3 * h / 4, 0.97, 0.6, 1);
  s1 = 0.9;
  s2 = 0.1;
  for (i = h / 4; i < h; i = i + h / 4.5) {
    draw_rectangle(sl, w, h, 0.6 * w, i, h / 9, h / 9, s2);
    draw_rectangle(sl, w, h, 0.6 * w + h / 9, i, h / 9, h / 9, s1);
    draw_rectangle(sl, w, h, 0.6 * w + 2 * h / 9, i, h / 9, h / 9, s2);
    draw_rectangle(sl, w, h, 0.6 * w, i + h / 9, h / 9, h / 9, s1);
    draw_rectangle(sl, w, h, 0.6 * w + h / 9, i + h / 9, h / 9, h / 9, s2);
    draw_rectangle(sl, w, h, 0.6 * w + 2 * h / 9, i + h / 9, h / 9, h / 9, s1);
  }
}
```