user: What is the c source code of the assembly code below?

```asm
<main>:
  endbr64
  push   %rbp
  lea    D40(%rip),%rdi
  sub    $0x10,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  lea    0x6(%rsp),%rbp
  call   <vinit@plt>
  lea    D88(%rip),%rdi
  call   <winopen@plt>
  mov    $0x106,%edi
  call   <unqdevice@plt>
  mov    $0x101,%edi
  call   <qdevice@plt>
  nopw   0x0(%rax,%rax,1)
L9:
  mov    %rbp,%rdi
  call   <qread@plt>
  cmp    $0x105,%eax
  jne    L9
  movsd  D86(%rip),%xmm8
  movsd  D196(%rip),%xmm2
  mov    $0x384,%edi
  movsd  D68(%rip),%xmm1
  movapd %xmm8,%xmm0
  call   <perspective@plt>
  movsd  D9(%rip),%xmm0
  pxor   %xmm5,%xmm5
  xor    %edi,%edi
  movsd  D262(%rip),%xmm2
  movapd %xmm5,%xmm3
  movapd %xmm5,%xmm4
  movapd %xmm0,%xmm1
  call   <lookat@plt>
  xor    %edi,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <clear@plt>
  xor    %eax,%eax
  call   <makesphere@plt>
  mov    $0x6,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  movsd  D137(%rip),%xmm5
  movapd %xmm5,%xmm2
  movapd %xmm5,%xmm1
  movapd %xmm5,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  mov    $0x7,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  pxor   %xmm4,%xmm4
  movsd  D156(%rip),%xmm2
  movsd  D84(%rip),%xmm1
  movapd %xmm4,%xmm0
  call   <translate@plt>
  movsd  D91(%rip),%xmm3
  movapd %xmm3,%xmm2
  movapd %xmm3,%xmm1
  movapd %xmm3,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  mov    $0x1,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  pxor   %xmm4,%xmm4
  movsd  D25(%rip),%xmm2
  movsd  D173(%rip),%xmm1
  movapd %xmm4,%xmm0
  call   <translate@plt>
  movsd  D108(%rip),%xmm0
  movapd %xmm0,%xmm2
  movapd %xmm0,%xmm1
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  mov    $0x2,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  movsd  D211(%rip),%xmm7
  pxor   %xmm4,%xmm4
  movsd  D69(%rip),%xmm1
  movapd %xmm4,%xmm0
  movapd %xmm7,%xmm2
  call   <translate@plt>
  movsd  D159(%rip),%xmm6
  movapd %xmm6,%xmm2
  movapd %xmm6,%xmm1
  movapd %xmm6,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  mov    $0x3,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  mov    D211(%rip),%rax
  pxor   %xmm4,%xmm4
  movapd %xmm4,%xmm0
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  call   <translate@plt>
  movsd  D175(%rip),%xmm0
  movapd %xmm0,%xmm2
  movapd %xmm0,%xmm1
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  mov    $0x4,%edi
  call   <color@plt>
  xor    %eax,%eax
  call   <pushmatrix@plt>
  mov    D211(%rip),%rax
  pxor   %xmm4,%xmm4
  movsd  D103(%rip),%xmm1
  movapd %xmm4,%xmm0
  movq   %rax,%xmm2
  call   <translate@plt>
  mov    D91(%rip),%rax
  movq   %rax,%xmm2
  movq   %rax,%xmm1
  movq   %rax,%xmm0
  call   <scale@plt>
  mov    $0x1,%edi
  call   <callobj@plt>
  xor    %eax,%eax
  call   <popmatrix@plt>
  lea    D189(%rip),%rdi
  call   <hfont@plt>
  mov    D86(%rip),%rax
  pxor   %xmm4,%xmm4
  movapd %xmm4,%xmm0
  movapd %xmm4,%xmm2
  movq   %rax,%xmm3
  movq   %rax,%xmm1
  call   <ortho2@plt>
  mov    $0x1,%edi
  call   <hcentertext@plt>
  mov    D159(%rip),%rax
  movsd  D34(%rip),%xmm0
  movq   %rax,%xmm1
  call   <htextsize@plt>
  mov    D137(%rip),%rax
  movsd  D214(%rip),%xmm0
  movq   %rax,%xmm1
  call   <move2@plt>
  movsd  D66(%rip),%xmm0
  call   <htextang@plt>
  lea    D256(%rip),%rdi
  call   <hcharstr@plt>
  mov    %rbp,%rdi
  call   <qread@plt>
  xor    %eax,%eax
  call   <gexit@plt>
  mov    0x8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L1
  add    $0x10,%rsp
  xor    %eax,%eax
  pop    %rbp
  ret
L1:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D40
data_type: string
name: read_data
arguments: tag: D88
data_type: string
name: read_data
arguments: tag: D86
data_type: f64
name: read_data
arguments: tag: D196
data_type: f64
name: read_data
arguments: tag: D68
data_type: f64
name: read_data
arguments: tag: D9
data_type: f64
name: read_data
arguments: tag: D262
data_type: f64
name: read_data
arguments: tag: D137
data_type: f64
name: read_data
arguments: tag: D156
data_type: f32[2]
name: read_data
arguments: tag: D84
data_type: f32[2]
name: read_data
arguments: tag: D91
data_type: f64
name: read_data
arguments: tag: D25
data_type: f32[2]
name: read_data
arguments: tag: D173
data_type: f64
name: read_data
arguments: tag: D108
data_type: f64
name: read_data
arguments: tag: D211
data_type: f32[2]
name: read_data
arguments: tag: D69
data_type: f32[2]
name: read_data
arguments: tag: D159
data_type: f64
name: read_data
arguments: tag: D175
data_type: f64
name: read_data
arguments: tag: D103
data_type: f32[2]
name: read_data
arguments: tag: D189
data_type: string
name: read_data
arguments: tag: D34
data_type: f64
name: read_data
arguments: tag: D214
data_type: f64
name: read_data
arguments: tag: D66
data_type: f32[2]
name: read_data
arguments: tag: D256
data_type: string

tool: D40: mswin

tool: D88: balls

tool: D86: 1

tool: D196: 500

tool: D68: 0.001

tool: D9: 13

tool: D262: 8

tool: D137: 0.5

tool: {"D156": [0.0,2.6875]}

tool: {"D84": [0.0,-2.6875]}

tool: D91: 0.3

tool: {"D25": [0.0,2.4375]}

tool: D173: 10

tool: D108: 0.2

tool: {"D211": [0.0,-2.5625]}

tool: {"D69": [0.0,2.71875]}

tool: D159: 0.15

tool: D175: 0.12

tool: {"D103": [0.0,-2.8125]}

tool: D189: times.rb

tool: D34: 0.08

tool: D214: 0.8

tool: {"D66": [0.0,-3.3515625]}

tool: D256: I'm very ordinary!

assistant: ```c
main() {
  short val;
  vinit("mswin");
  winopen("balls");
  unqdevice(262);
  qdevice(257);
  while (qread(&val) != 261)
    ;
  perspective(900, 1.0, 0.001, 500.0);
  lookat(13.0, 13.0, 8.0, 0.0, 0.0, 0.0, 0);
  color(0);
  clear();
  makesphere();
  color(6);
  pushmatrix();
  scale(0.5, 0.5, 0.5);
  callobj(1L);
  popmatrix();
  color(7);
  pushmatrix();
  translate(0.0, -1.4 * 10.0, 1.4 * 10.0);
  scale(0.3, 0.3, 0.3);
  callobj(1L);
  popmatrix();
  color(1);
  pushmatrix();
  translate(0.0, 10.0, 0.7 * 10.0);
  scale(0.2, 0.2, 0.2);
  callobj(1L);
  popmatrix();
  color(2);
  pushmatrix();
  translate(0.0, 1.5 * 10.0, -10.0);
  scale(0.15, 0.15, 0.15);
  callobj(1L);
  popmatrix();
  color(3);
  pushmatrix();
  translate(0.0, -10.0, -10.0);
  scale(0.12, 0.12, 0.12);
  callobj(1L);
  popmatrix();
  color(4);
  pushmatrix();
  translate(0.0, -2.0 * 10.0, -10.0);
  scale(0.3, 0.3, 0.3);
  callobj(1L);
  popmatrix();
  hfont("times.rb");
  ortho2(0.0, 1.0, 0.0, 1.0);
  hcentertext(1);
  htextsize(0.08, 0.15);
  move2(0.8, 0.5);
  htextang(-90.0);
  hcharstr("I'm very ordinary!");
  qread(&val);
  gexit();
}
```