// File: /workspace/github_c_makefile_star2_O2/mishun[P]plantri/fullgen.c
// Function: brille
void brille(int min_sechsecke, int max_sechsecke) 
{ 
int knotenzahl, pfadlaenge, s1ps2; 
int laenge_1, laenge_3; 
KNOTENTYP adresse_1[6], adresse_2[6],adresse_3[6];
int sixgons_1, sixgons_2, sixgons_3; /* zur besseren lesbarkeit -- es koennte auch immer adresse_i[1] 
					benutzt werden */
KANTE *anfang_1, *anfang_2, *anfang_3; /* eine kanonische Kante auf dem Rand zum Anfangen */ 
ITEMLISTE *item_1, *item_2, *item_3; 
BOOL gebaut_1, gebaut_2, ipr_fault_item2; 
PLANMAP map;
KNOTENTYP code[20];
int j, czmerke_1, czmerke_2, czmerke_3;
int modulozaehler;

modulozaehler=rest;

knotenzahl= 20 + 2*max_sechsecke;

init_map(map);

code[1]=2;

for (pfadlaenge=2*minbrillenglas+1; pfadlaenge <= knotenzahl+1; pfadlaenge++) 
  { /* EINZIGE Konvention: laenge_1 >= laenge_3 --- dann darf keine konvention 
       fuer die 6-Ecke mehr erfolgen ! */ 
    code[0]=pfadlaenge;
    for (laenge_1=minbrillenglas; (laenge_1 <= maxbrillenglas) &&
	                            (laenge_1 < pfadlaenge-minbrillenglas); laenge_1++) 
      if (brillenglasmark[laenge_1])
      { if ((laenge_1 % 2)==0) 
	  { adresse_1[0]=4; adresse_1[2]=(laenge_1-2)/2; adresse_1[3]=0; } 
        else { adresse_1[0]=5; adresse_1[2]=(laenge_1-1)/2; } 	
	code[2]=laenge_1;
	for (sixgons_1=0; sixgons_1 <= max_sechsecke; sixgons_1++) 
	  /* auch hier kann man besser abschaetzen */ 	 
	  { adresse_1[1]=sixgons_1;
	    for (item_1=suche_item(adresse_1); item_1 != nil; item_1=item_1->next_item) 	 
	      { 
		czmerke_1=4+adresse_1[0];
		for (j=4; j<czmerke_1; j++) code[j]=item_1->code[j-4];
 		for (laenge_3=minbrillenglas; 
		     (laenge_3 <= laenge_1) && (laenge_1+laenge_3 < pfadlaenge); laenge_3++)
		 if (brillenglasmark[laenge_3])
 		 {
		   modulozaehler++;
		   if (modulozaehler==mod) modulozaehler=0;
		   if (!mod || (modulozaehler==0))
		     {
		       code[3]=laenge_3;
		       berechne_brillenadressen(laenge_1,pfadlaenge,laenge_3,adresse_2,adresse_3);
		       gebaut_1=0; /* Man koennte auch patch_1 immer in der aeusseren
				      Schleife bauen und dann die Brille verschieden fortsetzen, aber erst Brille bauen 
				      und dann die patches einkleben erscheint mir sympathischer und weniger fehleranfaellig --
				      wenn auch von der Komplexitaet her ein wenig schlechter */ 
		       for (sixgons_2=0; sixgons_2 <= max_sechsecke-sixgons_1; sixgons_2++)
			 { s1ps2=sixgons_1 + sixgons_2;
			   adresse_2[1]=sixgons_2;
			   for (sixgons_3=max_sechsecke-s1ps2; (sixgons_3>=min_sechsecke-s1ps2) && (sixgons_3>=0);
				sixgons_3--)
			     {
			       adresse_3[1]=sixgons_3;
			       for (item_2=suche_item(adresse_2); item_2 != nil; item_2=item_2->next_item)
				 { is_ipr=1; ipr_fault_item2=0;
				   gebaut_2=0;
				   czmerke_2=czmerke_1+adresse_2[0];
				   for (j=czmerke_1; j<czmerke_2; j++) code[j]=item_2->code[j-czmerke_1];
				   for (item_3=suche_item(adresse_3); (item_3 != nil) && (!ipr_fault_item2); 
					item_3=item_3->next_item) 	  
				     { czmerke_3=czmerke_2+adresse_3[0];
				       for (j=czmerke_2; j<czmerke_3; j++) code[j]=item_3->code[j-czmerke_2];
				       if (gebaut_1==0) {
					 anzahl_5ek=0;
					 baue_brille(pfadlaenge,laenge_1,laenge_3,map, &anfang_1, &anfang_2,&anfang_3);
					 insert_patch(map,anfang_1,item_1,sixgons_1+adresse_1[0],adresse_1[0]); 
					 gebaut_1=1;
				       }
				       if (gebaut_2==0) 
					 { anzahl_5ek=5*adresse_1[0];
					   insert_patch(map,anfang_2,item_2,sixgons_2+adresse_2[0],adresse_2[0]); 
					   gebaut_2=1;
					   if (is_ipr==0) ipr_fault_item2=1;}
				       anzahl_5ek=5*(12-adresse_3[0]);
				       if (is_ipr) 
					 { insert_patch(map,anfang_3,item_3,sixgons_3+adresse_3[0],adresse_3[0]);
					   if (is_ipr) teste_und_schreibe(map,code); else is_ipr=1;
					   delete_patch(map,anfang_3,adresse_3); }
				     } /* ende for ueber item_3 */
				   if (gebaut_2) delete_patch(map,anfang_2,adresse_2);
				 } /* ende for ueber item_2 */
			     } /* ende for ueber sixgons_3 */
			 } /* ende for ueber sixgons_2 */
		       map[0][0].name=0; /* entspricht loeschen von map */
		     }
 		 } /* ende for ueber laenge_3 */
	      } /* ende for ueber item_1 */
	  } /* ende for ueber sixgons_1 */
      } /* ende for ueber laenge_1 */ 
  } /* ende for ueber pfadlaenge */
 }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x14818, %rsp          # imm = 0x14818
movl %esi, %ebx
movl %edi, 0x48(%rsp)
movl 0x7cb0(%rip), %ebp      # 0x1317c
leaq 0x140(%rsp), %rdi
callq 0x299a
leaq 0x110(%rsp), %rax
movw $0x2, 0x2(%rax)
movl 0x7c4b(%rip), %eax      # 0x13138
movq %rbx, 0x80(%rsp)
leal 0x15(%rbx,%rbx), %ecx
leal 0x1(%rax,%rax), %eax
movslq %eax, %rbx
movslq %ecx, %rax
movq %rax, 0xc0(%rsp)
leaq 0x12f0e(%rip), %r14     # 0x1e420
cmpq 0xc0(%rsp), %rbx
jg 0xba2d
movw %bx, 0x110(%rsp)
movslq 0x7c09(%rip), %r8       # 0x13138
movq %rbx, 0x88(%rsp)
movslq 0x7c26(%rip), %rax      # 0x13164
cmpq %rax, %r8
jg 0xba25
movslq 0x7bea(%rip), %rax      # 0x13138
movq %rbx, %rcx
subq %rax, %rcx
cmpq %rcx, %r8
jge 0xba25
cmpb $0x0, (%r8,%r14)
je 0xba1d
testb $0x1, %r8b
jne 0xb58d
movw $0x4, 0x24(%rsp)
leal 0x1fffe(%r8), %eax
shrl %eax
movw %ax, 0x28(%rsp)
andw $0x0, 0x2a(%rsp)
pushq $0x4
jmp 0xb5a1
movw $0x5, 0x24(%rsp)
leal -0x1(%r8), %eax
shrl %eax
movw %ax, 0x28(%rsp)
pushq $0x5
popq %rax
movw %r8w, 0x114(%rsp)
leal 0x4(%rax), %ecx
movq %rcx, 0xd0(%rsp)
leal (%rax,%rax,4), %ecx
movl %ecx, 0x58(%rsp)
movl %eax, %eax
movq %rax, %rcx
negq %rcx
movq %rcx, 0xc8(%rsp)
movq %rax, 0x38(%rsp)
leaq (%rsp,%rax,2), %r15
addq $0x110, %r15            # imm = 0x110
xorl %ecx, %ecx
movq %r8, 0x30(%rsp)
movq %r15, 0xe0(%rsp)
movq 0x80(%rsp), %rax
subl %ecx, %eax
movl %eax, 0x4c(%rsp)
jl 0xba1d
movw %cx, 0x26(%rsp)
leaq 0x24(%rsp), %rdi
movq %rcx, 0x10(%rsp)
callq 0xa388
movq 0x30(%rsp), %r8
movq %rax, %rsi
movq 0x38(%rsp), %rax
movq 0x10(%rsp), %rcx
addl %ecx, %eax
movl %eax, 0x54(%rsp)
movq 0x10(%rsp), %rax
testq %rsi, %rsi
je 0xba13
xorl %eax, %eax
cmpq %rax, 0x38(%rsp)
je 0xb655
movzbl 0x8(%rsi,%rax), %ecx
movw %cx, 0x118(%rsp,%rax,2)
incq %rax
jmp 0xb63c
movslq 0x7adc(%rip), %rdx      # 0x13138
movq 0x10(%rsp), %rax
movq %rsi, 0x90(%rsp)
cmpq %r8, %rdx
jg 0xba0b
leaq (%rdx,%r8), %rax
cmpq %rbx, %rax
movq 0x10(%rsp), %rax
jge 0xba0b
cmpb $0x0, (%rdx,%r14)
je 0xba03
incl %ebp
movl 0x7ae1(%rip), %eax      # 0x13178
cmpl %eax, %ebp
movl $0x0, %ecx
cmovel %ecx, %ebp
testl %eax, %eax
je 0xb6b3
testl %ebp, %ebp
je 0xb6b3
movq 0x10(%rsp), %rax
jmp 0xba03
movl %ebp, 0x44(%rsp)
movw %dx, 0x116(%rsp)
movl %r8d, %edi
movl %ebx, %esi
movq %rdx, 0x98(%rsp)
leaq 0x74(%rsp), %rcx
leaq 0x68(%rsp), %r8
callq 0xaff0
movzwl 0x74(%rsp), %ecx
movq 0xd0(%rsp), %rax
movq %rcx, 0xa0(%rsp)
addl %eax, %ecx
movzwl 0x68(%rsp), %edx
leal (%rcx,%rdx), %r14d
pushq $0xc
popq %rax
movq %rdx, 0xb0(%rsp)
subl %edx, %eax
leal (%rax,%rax,4), %eax
movl %eax, 0x64(%rsp)
movq 0xc8(%rsp), %rax
movq %rcx, 0xf8(%rsp)
leaq (%rax,%rcx), %rbx
xorl %edx, %edx
movq $0x0, 0x18(%rsp)
movq %rbx, 0xe8(%rsp)
cmpl 0x4c(%rsp), %edx
movq 0x10(%rsp), %rax
jg 0xb9d2
addl %edx, %eax
movw %dx, 0x76(%rsp)
movq 0x80(%rsp), %rcx
movl %ecx, %r12d
subl %eax, %r12d
movl 0x48(%rsp), %ecx
subl %eax, %ecx
movl %ecx, 0x50(%rsp)
movq 0xa0(%rsp), %rax
addl %edx, %eax
movl %eax, 0x5c(%rsp)
movq %rdx, 0xd8(%rsp)
cmpl 0x50(%rsp), %r12d
jl 0xb9cb
testl %r12d, %r12d
js 0xb9cb
movw %r12w, 0x6a(%rsp)
leaq 0x74(%rsp), %rdi
callq 0xa388
movq %rax, %rdx
movq 0xb0(%rsp), %rax
addl %r12d, %eax
movl %eax, 0x60(%rsp)
movq %r12, 0xf0(%rsp)
testq %rdx, %rdx
je 0xb9bb
movb $0x1, 0x797c(%rip)      # 0x13144
pushq $0x4
popq %rax
cmpq %rax, %rbx
je 0xb7df
movzbl 0x4(%rdx,%rax), %ecx
movw %cx, (%r15,%rax,2)
incq %rax
jmp 0xb7cb
movq %rdx, 0xa8(%rsp)
leaq 0x68(%rsp), %rdi
callq 0xa388
movq %rax, %rbp
xorl %r12d, %r12d
xorl %edx, %edx
movq 0x18(%rsp), %r13
testq %rbp, %rbp
je 0xb96f
testb %dl, %dl
jne 0xb96f
leaq 0x8(%rbp), %rax
movq 0xf8(%rsp), %rcx
cmpq %r14, %rcx
jae 0xb833
movzbl (%rax), %edx
movw %dx, 0x110(%rsp,%rcx,2)
incq %rcx
incq %rax
jmp 0xb81b
testb %r13b, %r13b
jne 0xb8a4
andl $0x0, 0x144f9(%rip)     # 0x1fd38
leaq 0x100(%rsp), %rax
movq %rax, (%rsp)
movq 0x88(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x98(%rsp), %rdx
leaq 0x140(%rsp), %rbx
movq %rbx, %rcx
leaq 0x108(%rsp), %r8
leaq 0xb8(%rsp), %r9
callq 0xb137
movq 0x108(%rsp), %rsi
movq %rbx, %rdi
movq 0x90(%rsp), %rdx
movl 0x54(%rsp), %ecx
movq 0x38(%rsp), %r8
callq 0xb33a
movb $0x1, %r13b
testb %r12b, %r12b
je 0xb8b3
movb 0x7895(%rip), %al       # 0x13144
xorl %edx, %edx
jmp 0xb8f4
movl 0x58(%rsp), %eax
movl %eax, 0x1447b(%rip)     # 0x1fd38
movq 0xb8(%rsp), %rsi
leaq 0x140(%rsp), %rdi
movq 0xa8(%rsp), %rdx
movl 0x5c(%rsp), %ecx
movq 0xa0(%rsp), %r8
callq 0xb33a
movb 0x7858(%rip), %al       # 0x13144
testb %al, %al
sete %dl
movb $0x1, %r12b
movl 0x64(%rsp), %ecx
movl %ecx, 0x1443a(%rip)     # 0x1fd38
testb %al, %al
je 0xb966
movl %edx, 0x18(%rsp)
movq 0x100(%rsp), %r15
leaq 0x140(%rsp), %rbx
movq %rbx, %rdi
movq %r15, %rsi
movq %rbp, %rdx
movl 0x60(%rsp), %ecx
movq 0xb0(%rsp), %r8
callq 0xb33a
cmpb $0x0, 0x780d(%rip)      # 0x13144
je 0xb94b
movq %rbx, %rdi
leaq 0x110(%rsp), %rsi
callq 0xa328
jmp 0xb952
movb $0x1, 0x77f2(%rip)      # 0x13144
movq %rbx, %rdi
movq %r15, %rsi
leaq 0x68(%rsp), %rdx
callq 0xb3f9
movl 0x18(%rsp), %edx
movq (%rbp), %rbp
jmp 0xb7fe
movq %r13, 0x18(%rsp)
testb %r12b, %r12b
je 0xb993
movq 0xb8(%rsp), %rsi
leaq 0x140(%rsp), %rdi
leaq 0x74(%rsp), %rdx
callq 0xb3f9
movq 0xa8(%rsp), %rdx
movq (%rdx), %rdx
movq 0xe0(%rsp), %r15
movq 0xe8(%rsp), %rbx
movq 0xf0(%rsp), %r12
jmp 0xb7b8
decl %r12d
movq 0xd8(%rsp), %rdx
jmp 0xb77a
incl %edx
jmp 0xb736
andw $0x0, 0x142(%rsp)
movl 0x44(%rsp), %ebp
movq 0x88(%rsp), %rbx
leaq 0x12a32(%rip), %r14     # 0x1e420
movq 0x30(%rsp), %r8
movq 0x90(%rsp), %rsi
movq 0x98(%rsp), %rdx
incq %rdx
jmp 0xb669
movq (%rsi), %rsi
jmp 0xb631
incl %eax
movq %rax, %rcx
jmp 0xb5ec
incq %r8
jmp 0xb537
incq %rbx
jmp 0xb512
addq $0x14818, %rsp          # imm = 0x14818
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq