// File: /workspace/github_cpp_makefile_star2_O2/carlos-urena[P]svg-gen/figures.cpp
// Function: Figure6_SuplPara::Figure6_SuplPara()
Figure6_SuplPara::Figure6_SuplPara()
{
  vec3 observador = vec3(-0.6,0.5,1.0),
       lookat     = vec3(0.0,0.0,0.0),
       vup        = vec3(0.0,1.0,0.0);

  cam = Camera( lookat, observador, vup );

  // longitud de los ejes menor (bt) y mayor (at) de la elipse tangente (bt<=at)
  // (bt en el eje X, y at en el eje Y)
  constexpr real bt = 0.7, at = 1.3 ;
  constexpr real bt2 = bt*bt, at2 = at*at ;

  // elipse plana tangente (perp. al eje Z, con eje mayor Y y eje menor X)
  const vec3 org  = vec3(0.0,0.0,0.0),
             ejex = vec3(1.0,0.0,0.0),
             ejey = vec3(0.0,1.0,0.0),
             ejez = vec3(0.0,0.0,1.0);

  const int nump = 256 ;
  const real lonx = 0.8 , lony = 3.0 ;

  // color de la elipse tangente
  vec3 colEllTan = vec3( 0.0,0.6,0.0 );

  Sphere *           pEsfera      = new Sphere( vec3(0.0,0.0,0.0), 1.0 );
  Ellipse *          pEllipseTan  = new Ellipse( nump, ejez, bt*ejex, at*ejey );
  SpherePolygon *    pEllipseEsf  = new SpherePolygon( *pEllipseTan );
  YCylinderPolygon * pEllipseCilY = new YCylinderPolygon( *pEllipseTan );
  Ellipse *          pcd          = new Ellipse( nump, vec3(0.0,1.0,0.0), ejex, ejez );

  // style de la elipse tangente
  pEllipseTan->style.lines_width = 0.015 ;
  pEllipseTan->style.lines_color = colEllTan ;

  // style de la circunferencia superior del cilindro

  pcd->style.draw_filled = false ;
  pcd->style.draw_lines = true ;
  pcd->style.lines_color = vec3(1.0,0.0,0.0);
  pcd->style.lines_width = 0.015 ;


  // segmentos de los ejes mayor y menor de la elipse tangente
Point * pbt0 = new Point( vec3(-bt,0.0,1.0), colEllTan ),
      * pbt1 = new Point( vec3(+bt,0.0,1.0), colEllTan ),
      * pat0 = new Point( vec3(0.0,-at,1.0), colEllTan ),
      * pat1 = new Point( vec3(0.0,+at,1.0), colEllTan );

  const float widthatbt = 0.008 ;

  Segment * segbt = new Segment( *pbt0, *pbt1, widthatbt ),
          * segat = new Segment( *pat0, *pat1, widthatbt );

  // points t0 y t1, s0 y s1
  const real x  = 0.7*bt ,
             x2 = x*x ,
             y  = at*real(sqrt(1.0-x2/bt2));

  const vec3 colpt0t1 = pEllipseTan->style.lines_color ;
  const vec3 vpt0     = vec3(x,-y,1.0),
             vptm     = vec3(x,0.0,1.0),
             vpt1     = vec3(x,+y,1.0);

  Point * pt0 = new Point( vpt0, colpt0t1 ),
        * ptm = new Point( vptm, colpt0t1 ),
        * pt1 = new Point( vpt1, colpt0t1 );

  Segment * segpt0pt1 = new Segment( *pt0, *pt1, widthatbt );

  const vec3 vps0 = vpt0.normalized(),
             vps1 = vpt1.normalized();

  Point * ps0 = new Point( vps0, pEllipseEsf->style.lines_color ),
        * ps1 = new Point( vps1, pEllipseEsf->style.lines_color  );



  //Segment * segpt0pt1 = new Segment( *pt0, *pt1, widthatbt );

  Segment * rads0t0 = new Segment( org, vpt0 ),
           * rads1t1 = new Segment( org, vpt1 );

  Segment * segm = new Segment( org, ptm->pos3D ),
           * segx = new Segment( ejez, ptm->pos3D );

  Segment * segt1 = new  Segment( vpt1, vec3(0.0,vpt1[1],0.0));
  segt1->style.dashed_lines = true ;
  segt1->style.lines_color = vec3( 0.7,0.7,0.7 );
  segt1->style.lines_width = 0.004 ;

  Segment * segs1 = new  Segment( vps1, vec3(0.0,vps1[1],0.0));
  segs1->style.dashed_lines = true ;
  segs1->style.lines_color = vec3( 0.7,0.7,0.7 );
  segs1->style.lines_width = 0.004 ;

  segx->style.lines_color = vec3(1.0,0.0,0.0);

  //añadir objetos

  objetos.add( new Axes( 0.004 ) );
  //objetos.add( new YAxisCylinder( cam ) );
  objetos.add( pEsfera );

  objetos.add( pEllipseTan );

  objetos.add( segbt );
  objetos.add( segat );

  objetos.add( segpt0pt1 );
  objetos.add( segm );
  objetos.add( segx );
  objetos.add( rads0t0 );
  objetos.add( rads1t1 );
  objetos.add( segt1 );
  objetos.add( segs1 );

  objetos.add( pt0 );
  objetos.add( ptm );
  objetos.add( pt1 );
  objetos.add( ps0 );
  objetos.add( ps1 );

}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x148, %rsp            # imm = 0x148
movq %rdi, %rbx
callq 0x8796
movabsq $0x3f000000bf19999a, %rax # imm = 0x3F000000BF19999A
leaq -0x160(%rbp), %rsi
andq $0x0, (%rsi)
leaq -0x16c(%rbp), %rdx
andl $0x0, 0x8(%rsi)
movq %rax, (%rdx)
movl $0x3f800000, 0x8(%rdx)  # imm = 0x3F800000
movabsq $0x3f80000000000000, %r15 # imm = 0x3F80000000000000
leaq -0x154(%rbp), %rcx
movq %r15, (%rcx)
andl $0x0, 0x8(%rcx)
leaq -0x13c(%rbp), %rdi
movq %rbx, -0xd8(%rbp)
callq 0x5f0c
movups -0x13c(%rbp), %xmm0
movups -0x12c(%rbp), %xmm1
movups -0x11c(%rbp), %xmm2
movups %xmm2, 0x20(%rbx)
movups %xmm1, 0x10(%rbx)
movups %xmm0, (%rbx)
andq $0x0, -0x13c(%rbp)
andl $0x0, -0x134(%rbp)
movq $0x3f800000, -0xe4(%rbp) # imm = 0x3F800000
andl $0x0, -0xdc(%rbp)
movq %r15, -0x10c(%rbp)
andl $0x0, -0x104(%rbp)
andq $0x0, -0x98(%rbp)
movl $0x3f800000, -0x90(%rbp) # imm = 0x3F800000
pushq $0x38
popq %rdi
callq 0x31b0
leaq -0x60(%rbp), %rsi
andq $0x0, (%rsi)
andl $0x0, 0x8(%rsi)
movss 0x6bac(%rip), %xmm0     # 0xb008
movq %rax, -0xd0(%rbp)
movq %rax, %rdi
callq 0x67a0
movl $0x98, %edi
callq 0x31b0
movq %rax, -0x50(%rbp)
movss 0x6ba3(%rip), %xmm0     # 0xb024
leaq -0xe4(%rbp), %rdi
callq 0x52f1
movlps %xmm0, -0x60(%rbp)
movss %xmm1, -0x58(%rbp)
movss 0x6b8a(%rip), %xmm0     # 0xb028
leaq -0x10c(%rbp), %rdi
callq 0x52f1
leaq -0x98(%rbp), %rdx
leaq -0x60(%rbp), %rcx
movq -0x50(%rbp), %rdi
movl $0x100, %esi            # imm = 0x100
callq 0x70d6
movl $0x98, %edi
callq 0x31b0
movq %rax, %r14
movq %rax, %rdi
movq -0x50(%rbp), %rsi
xorl %edx, %edx
callq 0x8b4a
movl $0x98, %edi
callq 0x31b0
movq %rax, %rbx
movq %rax, %rdi
movq -0x50(%rbp), %rsi
callq 0x90e0
movl $0x98, %edi
callq 0x31b0
movq %rax, %rbx
leaq -0x60(%rbp), %rdx
movq %r15, (%rdx)
andl $0x0, 0x8(%rdx)
movsd -0x98(%rbp), %xmm0
movss -0x90(%rbp), %xmm1
leaq -0xe4(%rbp), %rcx
movq %rax, %rdi
movl $0x100, %esi            # imm = 0x100
callq 0x70d6
movl $0x3c75c28f, %eax       # imm = 0x3C75C28F
movq -0x50(%rbp), %rcx
movl %eax, 0x3c(%rcx)
movsd 0x6b19(%rip), %xmm0     # 0xb060
movsd %xmm0, 0x20(%rcx)
andl $0x0, 0x28(%rcx)
movb $0x0, 0x3a(%rbx)
movb $0x1, 0x38(%rbx)
movq $0x3f800000, 0x20(%rbx) # imm = 0x3F800000
andl $0x0, 0x28(%rbx)
movl %eax, 0x3c(%rbx)
pushq $0x40
popq %rdi
callq 0x31b0
movq %rax, %rbx
movss 0x6ab2(%rip), %xmm0     # 0xb02c
movsd 0x6ade(%rip), %xmm2     # 0xb060
movss 0x6a7e(%rip), %xmm1     # 0xb008
xorps %xmm3, %xmm3
movq %rax, %rdi
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movq %rax, %r15
movss 0x6a7c(%rip), %xmm0     # 0xb024
movsd 0x6ab0(%rip), %xmm2     # 0xb060
movss 0x6a50(%rip), %xmm1     # 0xb008
xorps %xmm3, %xmm3
movq %rax, %rdi
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movq %rax, %r12
movsd 0x6a9a(%rip), %xmm0     # 0xb070
movsd 0x6a82(%rip), %xmm2     # 0xb060
movss 0x6a22(%rip), %xmm1     # 0xb008
xorps %xmm3, %xmm3
movq %rax, %rdi
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movq %rax, %r13
movsd 0x6a7c(%rip), %xmm0     # 0xb080
movsd 0x6a54(%rip), %xmm2     # 0xb060
movss 0x69f4(%rip), %xmm1     # 0xb008
xorps %xmm3, %xmm3
movq %rax, %rdi
callq 0x6190
movl $0x98, %edi
callq 0x31b0
movss 0x69ff(%rip), %xmm0     # 0xb030
movq %rax, -0xc8(%rbp)
movq %rax, %rdi
movq %rbx, %rsi
movq %r15, %rdx
callq 0x7042
movl $0x98, %edi
callq 0x31b0
movq %rax, %rbx
movss 0x69d5(%rip), %xmm0     # 0xb030
movq %rax, %rdi
movq %r12, %rsi
movq %r13, %rdx
callq 0x7042
movq -0x50(%rbp), %rax
movsd 0x20(%rax), %xmm0
movaps %xmm0, -0x40(%rbp)
movss 0x28(%rax), %xmm0
movss %xmm0, -0x48(%rbp)
movabsq $-0x40925550c1051eb9, %rax # imm = 0xBF6DAAAF3EFAE147
movq %rax, -0x60(%rbp)
movl $0x3f800000, %eax       # imm = 0x3F800000
movl %eax, -0x58(%rbp)
movabsq $0x3f6daaaf3efae147, %rcx # imm = 0x3F6DAAAF3EFAE147
movq %rcx, -0x78(%rbp)
movl %eax, -0x70(%rbp)
pushq $0x40
popq %rdi
callq 0x31b0
movq %rax, %r15
movsd -0x60(%rbp), %xmm0
movss 0x6949(%rip), %xmm1     # 0xb008
movq %rax, %rdi
movaps -0x40(%rbp), %xmm2
movss -0x48(%rbp), %xmm3
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movss 0x6954(%rip), %xmm0     # 0xb034
movss 0x6920(%rip), %xmm1     # 0xb008
movq %rax, -0x80(%rbp)
movq %rax, %rdi
movaps -0x40(%rbp), %xmm2
movss -0x48(%rbp), %xmm3
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movsd -0x78(%rbp), %xmm0
movss -0x70(%rbp), %xmm1
movq %rax, -0x88(%rbp)
movq %rax, %rdi
movaps -0x40(%rbp), %xmm2
movss -0x48(%rbp), %xmm3
callq 0x6190
movl $0x98, %edi
callq 0x31b0
movq %rax, %r12
movss 0x68f4(%rip), %xmm0     # 0xb030
movq %rax, %rdi
movq %r15, %rsi
movq -0x88(%rbp), %rdx
callq 0x7042
leaq -0x60(%rbp), %rdi
callq 0x5372
movaps %xmm0, -0x40(%rbp)
movss %xmm1, -0x48(%rbp)
leaq -0x78(%rbp), %rdi
callq 0x5372
movss %xmm0, -0xa8(%rbp)
shufps $0x55, %xmm0, %xmm0     # xmm0 = xmm0[1,1,1,1]
movss %xmm0, -0xa4(%rbp)
movss %xmm1, -0x68(%rbp)
movss %xmm1, -0xa0(%rbp)
pushq $0x40
popq %rdi
callq 0x31b0
movsd 0x20(%r14), %xmm2
movss 0x28(%r14), %xmm3
movq %rax, -0xc0(%rbp)
movq %rax, %rdi
movaps -0x40(%rbp), %xmm0
movss -0x48(%rbp), %xmm1
callq 0x6190
pushq $0x40
popq %rdi
callq 0x31b0
movsd -0xa8(%rbp), %xmm0
movsd 0x20(%r14), %xmm2
movss 0x28(%r14), %xmm3
movq %rax, -0xb0(%rbp)
movq %rax, %rdi
movaps %xmm0, -0x40(%rbp)
movss -0x68(%rbp), %xmm1
callq 0x6190
movl $0x98, %edi
callq 0x31b0
movq %rax, %r13
leaq -0x13c(%rbp), %rsi
leaq -0x60(%rbp), %rdx
movq %rax, %rdi
callq 0x6fce
movl $0x98, %edi
callq 0x31b0
leaq -0x13c(%rbp), %rsi
leaq -0x78(%rbp), %rdx
movq %rax, -0xb8(%rbp)
movq %rax, %rdi
callq 0x6fce
movq %rbx, -0x48(%rbp)
movl $0x98, %edi
callq 0x31b0
movq -0x80(%rbp), %rbx
addq $0x1c, %rbx
leaq -0x13c(%rbp), %rsi
movq %rax, -0x68(%rbp)
movq %rax, %rdi
movq %rbx, %rdx
callq 0x6fce
movl $0x98, %edi
callq 0x31b0
movq %rax, %r14
leaq -0x98(%rbp), %rsi
movq %rax, %rdi
movq %rbx, %rdx
callq 0x6fce
movl $0x98, %edi
callq 0x31b0
movq %rax, %rbx
movq %r13, -0xf8(%rbp)
movq %r12, -0x100(%rbp)
movq %r15, -0xf0(%rbp)
leaq -0x148(%rbp), %rdx
andl $0x0, (%rdx)
leaq -0x78(%rbp), %rsi
movss 0x4(%rsi), %xmm0
movss %xmm0, 0x4(%rdx)
andl $0x0, 0x8(%rdx)
movq %rax, %rdi
callq 0x6fce
movb $0x1, 0x44(%rbx)
movabsq $0x3f3333333f333333, %r15 # imm = 0x3F3333333F333333
movq %r15, 0x20(%rbx)
movl $0x3f333333, 0x28(%rbx) # imm = 0x3F333333
movl $0x3b83126f, 0x3c(%rbx) # imm = 0x3B83126F
movl $0x98, %edi
callq 0x31b0
movq %rax, %r13
movaps -0x40(%rbp), %xmm0
shufps $0x55, %xmm0, %xmm0     # xmm0 = xmm0[1,1,1,1]
leaq -0x148(%rbp), %rdx
andl $0x0, (%rdx)
movss %xmm0, 0x4(%rdx)
andl $0x0, 0x8(%rdx)
leaq -0xa8(%rbp), %rsi
movq %rax, %rdi
callq 0x6fce
movb $0x1, 0x44(%r13)
movq %r15, 0x20(%r13)
movl $0x3f333333, 0x28(%r13) # imm = 0x3F333333
movl $0x3b83126f, 0x3c(%r13) # imm = 0x3B83126F
movq $0x3f800000, 0x20(%r14) # imm = 0x3F800000
andl $0x0, 0x28(%r14)
pushq $0x38
popq %rdi
callq 0x31b0
movq %rax, %r12
movss 0x66e9(%rip), %xmm0     # 0xb038
movq %rax, %rdi
xorl %esi, %esi
callq 0x7ca0
movq -0xd8(%rbp), %rax
leaq 0x30(%rax), %r15
movq %r15, %rdi
movq %r12, %rsi
callq 0x664c
movq %r15, %rdi
movq -0xd0(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x50(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0xc8(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x48(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x100(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x68(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq %r14, %rsi
callq 0x664c
movq %r15, %rdi
movq -0xf8(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0xb8(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq %rbx, %rsi
callq 0x664c
movq %r15, %rdi
movq %r13, %rsi
callq 0x664c
movq %r15, %rdi
movq -0xf0(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x80(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0x88(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0xc0(%rbp), %rsi
callq 0x664c
movq %r15, %rdi
movq -0xb0(%rbp), %rsi
callq 0x664c
addq $0x148, %rsp            # imm = 0x148
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
jmp 0x4b23
jmp 0x4b18
jmp 0x4b41
jmp 0x4b79
jmp 0x4b4c
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0x68(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0xb8(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b18
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0xb0(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0xc0(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b79
jmp 0x4b79
jmp 0x4b23
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0x88(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0x80(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b2e
jmp 0x4b79
jmp 0x4b41
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0xc8(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq %r13, %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq %r12, %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq %r15, %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b41
jmp 0x4b79
jmp 0x4b41
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq %rbx, %rdi
jmp 0x4b72
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq %r14, %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0xd0(%rbp), %rdi
jmp 0x4b72
jmp 0x4b79
jmp 0x4b79
movq %rax, -0x40(%rbp)
movq -0x50(%rbp), %rdi
callq 0x3190
jmp 0x4b7d
movq %rax, -0x40(%rbp)
movq -0xd8(%rbp), %rdi
callq 0x53e4
movq -0x40(%rbp), %rdi
callq 0x3250