home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / graphics / 3dto3d / a15.cc < prev    next >
C/C++ Source or Header  |  1998-05-09  |  16KB  |  241 lines
  1. /* COBF by BB -- obfuscated at Sat Mar 21 22:21:00 1998
  2. */
  3. #include<math.h>
  4. #include<stdio.h>
  5. #include"cobf.h"
  6. l26 s j;l26 j d[3];l26 j l[4][4];b l221(d l36,j l365,j l363,j l362);b
  7. l150(d z,d x);a l294(d z,d x);b l274(d z,d x,d l78);b l280(d z,d x,d
  8. l78);b l276(d z,d x,j l240);j l252(d l36);b l283(d l36);j l287(d z,d x
  9. );b l301(d z,d x,d l78);b l361(d z,d x,d l78);b l368(d z,d x,d l78);c
  10. a l315(d k[3],j l364);j l306(d z,d x);j l358(d z,d x);b l336(d l36,a
  11. l158);b l194(l48*l181,d l36,e l410);b l378(d z,d x,a l72,j l87);b l388
  12. (d z,d x,d l72,j l87);b l259(d l322[3],d l346);b l372(d z,d x,l l45);
  13. b l392(d l87,d l76);s l391(d l176,d l76,c a l72);b l373(l l45);b l402
  14. (l l80,l l86,a l72,j l87);b l390(l l80,l l86,d l72,j l87);b l349(l l80
  15. ,l l86,l l220);b l375(l l80,l l86,l l220);j l384(l l80,l l86);b l381(
  16. l l45,d l137,d l122,d l124,d l216);b l285(l l71);b l386(l l71,d l146);
  17. b l374(l l71,d l146);b l369(l l71,d l146);b l389(l l45,d l137,d l122,
  18. d l124,d l216);b l314(l l210,l l219);b l316(l l210,l l357,l l219);b
  19. l387(l l80,l l86);c a l376(d l122);b l324(d l333,l l71,d l290);b l396
  20. (j l67,j l187,j l133,j*l202,j*l226,j*l200);b l383(j l202,j l329,j l200
  21. ,j*l67,j*l187,j*l133);b l808(l l45);j l776(l l45);j l437(j l488,j l469
  22. ,j l473,j l487,j l413,j l468,j l412,j l341,j l467);j l739(j l299,j
  23. l133,j l269,j l880);b l221(d l36,j l365,j l363,j l362){l36[0]=l365;
  24. l36[1]=l363;l36[2]=l362;}b l150(d z,d x){z[0]=x[0];z[1]=x[1];z[2]=x[2
  25. ];}a l294(d z,d x){f((l500(z[0]-x[0])<1e-6)&&(l500(z[1]-x[1])<1e-6)&&
  26. (l500(z[2]-x[2])<1e-6))m 1;l29 m 0;}b l274(d z,d x,d l78){z[0]=x[0]+
  27. l78[0];z[1]=x[1]+l78[1];z[2]=x[2]+l78[2];}b l280(d z,d x,d l78){z[0]=
  28. x[0]-l78[0];z[1]=x[1]-l78[1];z[2]=x[2]-l78[2];}b l276(d z,d x,j l240){
  29. z[0]=l240*x[0];z[1]=l240*x[1];z[2]=l240*x[2];}j l252(d l36){m l771(
  30. l36[0] *l36[0]+l36[1] *l36[1]+l36[2] *l36[2]);}b l283(d l36){j l593=
  31. l252(l36);f(l593>0.0)l276(l36,l36,1.0/l593);}j l287(d z,d x){m(z[0] *
  32. x[0]+z[1] *x[1]+z[2] *x[2]);}b l301(d z,d x,d l78){z[0]=(x[1] *l78[2]
  33. )-(x[2] *l78[1]);z[1]=(x[2] *l78[0])-(x[0] *l78[2]);z[2]=(x[0] *l78[1
  34. ])-(x[1] *l78[0]);}b l361(d z,d x,d l78){z[0]=(x[0]<l78[0])?x[0]:l78[
  35. 0];z[1]=(x[1]<l78[1])?x[1]:l78[1];z[2]=(x[2]<l78[2])?x[2]:l78[2];}b
  36. l368(d z,d x,d l78){z[0]=(x[0]>l78[0])?x[0]:l78[0];z[1]=(x[1]>l78[1])?
  37. x[1]:l78[1];z[2]=(x[2]>l78[2])?x[2]:l78[2];}c a l315(d k[3],j l364){d
  38. l588,l597,l206;j l593;l280(l588,k[0],k[2]);l280(l597,k[1],k[2]);l301(
  39. l206,l588,l597);l593=l252(l206);m(l593<l364);}j l306(d z,d x){j l618,
  40. l619,l87,l575;l618=l252(z);l619=l252(x);f(l618*l619==0.0)l87=0.0;l29{
  41. l575=l287(z,x)/(l618*l619);f(l575<=-1.0)l87=180.0;l29 f(l575>=+1.0)l87
  42. =0.0;l29 l87=(180.0/3.14159265358979323846) *l701(l575);}m l87;}j l358
  43. (d z,d x){j l618,l619,l87,l575;l618=l252(z);l619=l252(x);f(l618*l619
  44. ==0.0)l87=0.0;l29{l575=l287(z,x)/(l618*l619);f(l575<=-1.0)l87=
  45. 3.14159265358979323846;l29 f(l575>=+1.0)l87=0.0;l29 l87=l701(l575);}m
  46. l87;}b l336(d l36,a l158){j l49;l191(l158){l59 0:{}l34;l59 1:{l49=l36
  47. [0];l36[0]=l36[1];l36[1]=l49;}l34;l59 2:{l49=l36[0];l36[0]=l36[2];l36
  48. [2]=l49;}l34;l59 3:{l49=l36[1];l36[1]=l36[2];l36[2]=l49;}l34;l270:{}
  49. l34;}}b l194(l48*l181,d l36,e l988){e l617[]="\x25\x66\x2c\x25\x66"
  50. "\x2c\x25\x66";l191(l988){l59 0:l617[2]=' ';l617[5]=' ';l34;l59 1:
  51. l617[2]=',';l617[5]=',';l34;l59 2:l617[2]='\t';l617[5]='\t';l34;l270:
  52. l34;}o(l181,l617,l36[0],l36[1],l36[2]);}b l378(d z,d x,a l72,j l87){j
  53. l272,l302;l272=l601((3.14159265358979323846/180.0) *l87);l302=l636((
  54. 3.14159265358979323846/180.0) *l87);l191(l72){l59 0:z[0]=x[0];z[1]=x[
  55. 1] *l272+x[2] *l302;z[2]=x[2] *l272-x[1] *l302;l34;l59 1:z[0]=x[0] *
  56. l272-x[2] *l302;z[1]=x[1];z[2]=x[2] *l272+x[0] *l302;l34;l59 2:z[0]=x
  57. [0] *l272+x[1] *l302;z[1]=x[1] *l272-x[0] *l302;z[2]=x[2];l34;l270:
  58. l34;}}b l388(d z,d x,d l72,j l87){j l272,l302;l l45;l272=l601((
  59. 3.14159265358979323846/180.0) *l87);l302=l636((3.14159265358979323846
  60. /180.0) *l87);l45[0][0]=(l72[0] *l72[0])+((1.0-(l72[0] *l72[0])) *
  61. l272);l45[0][1]=(l72[0] *l72[1] * (1.0-l272))-(l72[2] *l302);l45[0][2
  62. ]=(l72[0] *l72[2] * (1.0-l272))+(l72[1] *l302);l45[0][3]=0.0;l45[1][0
  63. ]=(l72[0] *l72[1] * (1.0-l272))+(l72[2] *l302);l45[1][1]=(l72[1] *l72
  64. [1])+((1.0-(l72[1] *l72[1])) *l272);l45[1][2]=(l72[1] *l72[2] * (1.0-
  65. l272))-(l72[0] *l302);l45[1][3]=0.0;l45[2][0]=(l72[0] *l72[2] * (1.0-
  66. l272))-(l72[1] *l302);l45[2][1]=(l72[1] *l72[2] * (1.0-l272))+(l72[0]
  67.  *l302);l45[2][2]=(l72[2] *l72[2])+((1.0-(l72[2] *l72[2])) *l272);l45
  68. [2][3]=0.0;l45[3][0]=l45[3][1]=l45[3][2]=l45[3][3]=0.0;l372(z,x,l45);
  69. }b l372(d z,d x,l l45){d l49;l49[0]=(x[0] *l45[0][0])+(x[1] *l45[1][0
  70. ])+(x[2] *l45[2][0])+l45[3][0];l49[1]=(x[0] *l45[0][1])+(x[1] *l45[1]
  71. [1])+(x[2] *l45[2][1])+l45[3][1];l49[2]=(x[0] *l45[0][2])+(x[1] *l45[
  72. 1][2])+(x[2] *l45[2][2])+l45[3][2];l150(z,l49);}b l369(l l71,d l146){
  73. l l672;l l681;l285(l672);l672[0][0]=l146[0];l672[1][1]=l146[1];l672[2
  74. ][2]=l146[2];l316(l681,l672,l71);l314(l71,l681);}b l374(l l71,d l146){
  75. l l692;l l681;l285(l692);l692[3][0]=l146[0];l692[3][1]=l146[1];l692[3
  76. ][2]=l146[2];l316(l681,l692,l71);l314(l71,l681);}b l386(l l71,d l146){
  77. l l644;l l643;l l642;l l830;l l837;d l576;s l825,l758;s l827,l757;s
  78. l826,l756;l576[0]=l146[0] *3.14159265358979323846/180.0;l576[1]=l146[
  79. 1] *3.14159265358979323846/180.0;l576[2]=l146[2] *
  80. 3.14159265358979323846/180.0;l825=l601(l576[0]);l758=l636(l576[0]);
  81. l827=l601(l576[1]);l757=l636(l576[1]);l826=l601(l576[2]);l756=l636(
  82. l576[2]);l285(l644);l644[1][1]=l825;l644[1][2]=l758;l644[2][1]=0.0-
  83. l758;l644[2][2]=l825;l316(l830,l644,l71);l285(l643);l643[0][0]=l827;
  84. l643[0][2]=0.0-l757;l643[2][0]=l757;l643[2][2]=l827;l316(l837,l643,
  85. l830);l285(l642);l642[0][0]=l826;l642[0][1]=l756;l642[1][0]=0.0-l756;
  86. l642[1][1]=l826;l316(l71,l642,l837);}b l316(l l210,l l357,l l219){c a
  87. g,l30,l240;l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++){l210[g][l30]=0.0;
  88. l41(l240=0;l240<4;l240++)l210[g][l30]+=l357[l240][l30] *l219[g][l240]
  89. ;}}b l324(d l333,l l71,d l290){l333[0]=l290[0] *l71[0][0]+l290[1] *
  90. l71[1][0]+l290[2] *l71[2][0]+1*l71[3][0];l333[1]=l290[0] *l71[0][1]+
  91. l290[1] *l71[1][1]+l290[2] *l71[2][1]+1*l71[3][1];l333[2]=l290[0] *
  92. l71[0][2]+l290[1] *l71[1][2]+l290[2] *l71[2][2]+1*l71[3][2];}b l314(l
  93. l210,l l219){c a g,l30;l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++)l210[g][
  94. l30]=l219[g][l30];}b l285(l l71){l71[0][0]=1.0;l71[0][1]=0.0;l71[0][2
  95. ]=0.0;l71[0][3]=0.0;l71[1][0]=0.0;l71[1][1]=1.0;l71[1][2]=0.0;l71[1][
  96. 3]=0.0;l71[2][0]=0.0;l71[2][1]=0.0;l71[2][2]=1.0;l71[2][3]=0.0;l71[3]
  97. [0]=0.0;l71[3][1]=0.0;l71[3][2]=0.0;l71[3][3]=1.0;}b l373(l l45){a g,
  98. l30;l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++)l45[g][l30]=0.0;l41(g=0;g<4
  99. ;g++)l45[g][g]=1.0;}b l402(l l80,l l86,a l72,j l87){l l45;j l272,l302
  100. ;l272=l601((3.14159265358979323846/180.0) *l87);l302=l636((
  101. 3.14159265358979323846/180.0) *l87);l373(l45);l191(l72){l59 0:l45[1][
  102. 1]=l272;l45[1][2]=l302;l45[2][1]=-l302;l45[2][2]=l272;l34;l59 1:l45[0
  103. ][0]=l272;l45[0][2]=-l302;l45[2][0]=l302;l45[2][2]=l272;l34;l59 2:l45
  104. [0][0]=l272;l45[0][1]=l302;l45[1][0]=-l302;l45[1][1]=l272;l34;l270:
  105. l34;}l349(l80,l86,l45);}b l390(l l80,l l86,d l72,j l87){j l272,l302;l
  106. l45;l272=l601((3.14159265358979323846/180.0) *l87);l302=l636((
  107. 3.14159265358979323846/180.0) *l87);l45[0][0]=(l72[0] *l72[0])+((1.0-
  108. (l72[0] *l72[0])) *l272);l45[0][1]=(l72[0] *l72[1] * (1.0-l272))-(l72
  109. [2] *l302);l45[0][2]=(l72[0] *l72[2] * (1.0-l272))+(l72[1] *l302);l45
  110. [0][3]=0.0;l45[1][0]=(l72[0] *l72[1] * (1.0-l272))+(l72[2] *l302);l45
  111. [1][1]=(l72[1] *l72[1])+((1.0-(l72[1] *l72[1])) *l272);l45[1][2]=(l72
  112. [1] *l72[2] * (1.0-l272))-(l72[0] *l302);l45[1][3]=0.0;l45[2][0]=(l72
  113. [0] *l72[2] * (1.0-l272))-(l72[1] *l302);l45[2][1]=(l72[1] *l72[2] * (
  114. 1.0-l272))+(l72[0] *l302);l45[2][2]=(l72[2] *l72[2])+((1.0-(l72[2] *
  115. l72[2])) *l272);l45[2][3]=0.0;l45[3][0]=l45[3][1]=l45[3][2]=l45[3][3]
  116. =0.0;l349(l80,l86,l45);}b l349(l l80,l l86,l l220){j l515;a g,l30,
  117. l240;l l679;l41(g=0;g<4;g++){l41(l30=0;l30<4;l30++){l515=0.0;l41(l240
  118. =0;l240<4;l240++)l515=l515+l86[g][l240] *l220[l240][l30];l679[g][l30]
  119. =l515;}}l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++)l80[g][l30]=l679[g][l30
  120. ];}b l375(l l80,l l86,l l220){s l515;a g,l30,l240;l l679;l41(g=0;g<4;
  121. g++){l41(l30=0;l30<4;l30++){l515=0.0;l41(l240=0;l240<4;l240++)l515=
  122. l515+l86[l240][g] *l220[l30][l240];l679[g][l30]=l515;}}l41(g=0;g<4;g
  123. ++)l41(l30=0;l30<4;l30++)l80[g][l30]=l679[g][l30];}b l381(l l45,d l137
  124. ,d l122,d l124,d l216){a g;d l112[3],l403;l41(g=0;g<3;g++)l216[g]=l45
  125. [3][g];l41(g=0;g<3;g++){l112[g][0]=l45[g][0];l112[g][1]=l45[g][1];
  126. l112[g][2]=l45[g][2];}l137[0]=l252(l112[0]);l283(l112[0]);l122[0]=
  127. l287(l112[0],l112[1]);l112[1][0]=l112[1][0]-l122[0] *l112[0][0];l112[
  128. 1][1]=l112[1][1]-l122[0] *l112[0][1];l112[1][2]=l112[1][2]-l122[0] *
  129. l112[0][2];l137[1]=l252(l112[1]);l283(l112[1]);f(l137[1]!=0.0)l122[0]
  130. /=l137[1];l122[1]=l287(l112[0],l112[2]);l112[2][0]=l112[2][0]-l122[1]
  131.  *l112[0][0];l112[2][1]=l112[2][1]-l122[1] *l112[0][1];l112[2][2]=
  132. l112[2][2]-l122[1] *l112[0][2];l122[2]=l287(l112[1],l112[2]);l112[2][
  133. 0]=l112[2][0]-l122[2] *l112[1][0];l112[2][1]=l112[2][1]-l122[2] *l112
  134. [1][1];l112[2][2]=l112[2][2]-l122[2] *l112[1][2];l137[2]=l252(l112[2]
  135. );l283(l112[2]);f(l137[2]!=0.0){l122[1]/=l137[2];l122[2]/=l137[2];}
  136. l301(l403,l112[1],l112[2]);f(l287(l112[0],l403)<0.0){l41(g=0;g<3;g++){
  137. l137[g] *=-1.0;l112[g][0] *=-1.0;l112[g][1] *=-1.0;l112[g][2] *=-1.0;
  138. }}f(l112[0][2]<-1.0)l112[0][2]=-1.0;f(l112[0][2]>+1.0)l112[0][2]=+1.0
  139. ;l124[1]=l695(-l112[0][2]);f(l500(l601(l124[1]))>1e-6){l124[0]=l726(
  140. l112[1][2],l112[2][2]);l124[2]=l726(l112[0][1],l112[0][0]);}l29{l124[
  141. 0]=l726(l112[1][0],l112[1][1]);l124[2]=0.0;}l124[0]=(180.0/
  142. 3.14159265358979323846) *l124[0];l124[1]=(180.0/
  143. 3.14159265358979323846) *l124[1];l124[2]=(180.0/
  144. 3.14159265358979323846) *l124[2];}j l384(l l80,l l86){a g,l30;j l599;
  145. f(l80!=l86){l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++)l80[g][l30]=l86[g][
  146. l30];}l599=l776(l80);f(l500(l599)<1e-6)m 0.0;l808(l80);l41(g=0;g<4;g
  147. ++)l41(l30=0;l30<4;l30++)l80[g][l30]=l80[g][l30]/l599;m l599;}b l387(
  148. l l80,l l86){c a g,l30;s l599;f(l80!=l86){l41(g=0;g<4;g++)l41(l30=0;
  149. l30<4;l30++)l80[g][l30]=l86[g][l30];}l599=l776(l80);f(l500(l599)<1e-6
  150. )m;l808(l80);l41(g=0;g<4;g++)l41(l30=0;l30<4;l30++)l80[g][l30]=l80[g]
  151. [l30]/l599;}b l808(l l45){j l488,l469,l473,l504,l487,l413,l468,l506;j
  152. l412,l341,l467,l502,l531,l501,l497,l498;l488=l45[0][0];l487=l45[0][1]
  153. ;l412=l45[0][2];l531=l45[0][3];l469=l45[1][0];l413=l45[1][1];l341=l45
  154. [1][2];l501=l45[1][3];l473=l45[2][0];l468=l45[2][1];l467=l45[2][2];
  155. l497=l45[2][3];l504=l45[3][0];l506=l45[3][1];l502=l45[3][2];l498=l45[
  156. 3][3];l45[0][0]=l437(l413,l468,l506,l341,l467,l502,l501,l497,l498);
  157. l45[1][0]=-l437(l469,l473,l504,l341,l467,l502,l501,l497,l498);l45[2][
  158. 0]=l437(l469,l473,l504,l413,l468,l506,l501,l497,l498);l45[3][0]=-l437
  159. (l469,l473,l504,l413,l468,l506,l341,l467,l502);l45[0][1]=-l437(l487,
  160. l468,l506,l412,l467,l502,l531,l497,l498);l45[1][1]=l437(l488,l473,
  161. l504,l412,l467,l502,l531,l497,l498);l45[2][1]=-l437(l488,l473,l504,
  162. l487,l468,l506,l531,l497,l498);l45[3][1]=l437(l488,l473,l504,l487,
  163. l468,l506,l412,l467,l502);l45[0][2]=l437(l487,l413,l506,l412,l341,
  164. l502,l531,l501,l498);l45[1][2]=-l437(l488,l469,l504,l412,l341,l502,
  165. l531,l501,l498);l45[2][2]=l437(l488,l469,l504,l487,l413,l506,l531,
  166. l501,l498);l45[3][2]=-l437(l488,l469,l504,l487,l413,l506,l412,l341,
  167. l502);l45[0][3]=-l437(l487,l413,l468,l412,l341,l467,l531,l501,l497);
  168. l45[1][3]=l437(l488,l469,l473,l412,l341,l467,l531,l501,l497);l45[2][3
  169. ]=-l437(l488,l469,l473,l487,l413,l468,l531,l501,l497);l45[3][3]=l437(
  170. l488,l469,l473,l487,l413,l468,l412,l341,l467);}j l776(l l45){j l596;j
  171. l488,l469,l473,l504,l487,l413,l468,l506,l412,l341,l467,l502,l531,l501
  172. ,l497,l498;l488=l45[0][0];l487=l45[0][1];l412=l45[0][2];l531=l45[0][3
  173. ];l469=l45[1][0];l413=l45[1][1];l341=l45[1][2];l501=l45[1][3];l473=
  174. l45[2][0];l468=l45[2][1];l467=l45[2][2];l497=l45[2][3];l504=l45[3][0]
  175. ;l506=l45[3][1];l502=l45[3][2];l498=l45[3][3];l596=l488*l437(l413,
  176. l468,l506,l341,l467,l502,l501,l497,l498)-l487*l437(l469,l473,l504,
  177. l341,l467,l502,l501,l497,l498)+l412*l437(l469,l473,l504,l413,l468,
  178. l506,l501,l497,l498)-l531*l437(l469,l473,l504,l413,l468,l506,l341,
  179. l467,l502);m l596;}j l437(j l488,j l469,j l473,j l487,j l413,j l468,j
  180. l412,j l341,j l467){j l596;l596=l488*l739(l413,l468,l341,l467)-l487*
  181. l739(l469,l473,l341,l467)+l412*l739(l469,l473,l413,l468);m l596;}j
  182. l739(j l299,j l133,j l269,j l880){j l596;l596=l299*l880-l133*l269;m
  183. l596;}b l259(d l322[3],d l346){d l588,l597;l280(l588,l322[1],l322[0]);
  184. l280(l597,l322[2],l322[0]);l301(l346,l597,l588);l283(l346);}b l389(l
  185. l45,d l137,d l122,d l124,d l216){c a g;d l112[3],l403;l41(g=0;g<3;g++
  186. )l216[g]=l45[3][g];l41(g=0;g<3;g++){l112[g][0]=l45[g][0];l112[g][1]=
  187. l45[g][1];l112[g][2]=l45[g][2];}l137[0]=l252(l112[0]);l283(l112[0]);
  188. l122[0]=l287(l112[0],l112[1]);l112[1][0]=l112[1][0]-l122[0] *l112[0][
  189. 0];l112[1][1]=l112[1][1]-l122[0] *l112[0][1];l112[1][2]=l112[1][2]-
  190. l122[0] *l112[0][2];l137[1]=l252(l112[1]);l283(l112[1]);f(l137[1]!=
  191. 0.0)l122[0]/=l137[1];l122[1]=l287(l112[0],l112[2]);l112[2][0]=l112[2]
  192. [0]-l122[1] *l112[0][0];l112[2][1]=l112[2][1]-l122[1] *l112[0][1];
  193. l112[2][2]=l112[2][2]-l122[1] *l112[0][2];l122[2]=l287(l112[1],l112[2
  194. ]);l112[2][0]=l112[2][0]-l122[2] *l112[1][0];l112[2][1]=l112[2][1]-
  195. l122[2] *l112[1][1];l112[2][2]=l112[2][2]-l122[2] *l112[1][2];l137[2]
  196. =l252(l112[2]);l283(l112[2]);f(l137[2]!=0.0){l122[1]/=l137[2];l122[2]
  197. /=l137[2];}l301(l403,l112[1],l112[2]);f(l287(l112[0],l403)<0.0){l41(g
  198. =0;g<3;g++){l137[g] *=-1.0;l112[g][0] *=-1.0;l112[g][1] *=-1.0;l112[g
  199. ][2] *=-1.0;}}f(l112[0][2]<-1.0)l112[0][2]=-1.0;f(l112[0][2]>+1.0)l112
  200. [0][2]=+1.0;l124[1]=l695(-l112[0][2]);l124[0]=l726(l112[1][2],l112[2]
  201. [2]);l124[2]=l726(l112[0][1],l112[0][0]);l124[0]=(180.0/
  202. 3.14159265358979323846) *l124[0];l124[1]=(180.0/
  203. 3.14159265358979323846) *l124[1];l124[2]=(180.0/
  204. 3.14159265358979323846) *l124[2];f(l124[0]<0.0)l124[0]+=360.0;f(l124[
  205. 1]<0.0)l124[1]+=360.0;f(l124[2]<0.0)l124[2]+=360.0;}b l392(d l87,d l76
  206. ){s l607;l87[0]=l695(-l76[1]);l607=l76[0]/l601(l695(-l76[1]));f(l607>
  207. 1.0)l607=1.0;f(l607<-1.0)l607=-1.0;f(l76[2]<0.0)l87[1]=-l695(l607)+
  208. 3.14159265358979323846;l29 l87[1]=l695(l607);f(l87[0]<0.0)l87[0]+=2*
  209. 3.14159265358979323846;f(l87[1]<0.0)l87[1]+=2*3.14159265358979323846;
  210. l87[0]=l87[0] *180.0/3.14159265358979323846;l87[1]=l87[1] *180.0/
  211. 3.14159265358979323846;l87[2]=0;}s l391(d l176,d l76,c a l72){s l313;
  212. s l307;s l377;s l355;s l308;s l296;s l813;s l737;s l698;s l275;s l641
  213. ;s l795;l191(l72){l59 2:l313=l176[0];l307=l176[1];l377=l76[0];l355=
  214. l76[1];l34;l59 0:l313=l176[1];l307=l176[2];l377=l76[1];l355=l76[2];
  215. l34;l59 1:l313=l176[2];l307=l176[0];l377=l76[2];l355=l76[0];l34;l270:
  216. l313=l176[0];l307=l176[1];l377=l76[0];l355=l76[1];l34;}l308=1.0;l296=
  217. 0.0;l813=l771(l313*l313+l307*l307);l737=l771(l377*l377+l355*l355);
  218. l698=l771(l308*l308+l296*l296);f(l737<1e-6)m(0.0);f(l307<l296)l641=-
  219. l701((l313*l308+l307*l296)/(l813*l698));l29 l641=l701((l313*l308+l307
  220.  *l296)/(l813*l698));f(l355<l296)l795=-l701((l377*l308+l355*l296)/(
  221. l737*l698));l29 l795=l701((l377*l308+l355*l296)/(l737*l698));l275=
  222. l795-l641;l275=l275*180.0/3.14159265358979323846;f(l275<0.0)l275+=
  223. 360.0;m(l275);}c a l376(d l122){f(l252(l122)>(100*1e-6))m 1;l29 m 0;}
  224. b l396(j l67,j l187,j l133,j*l202,j*l226,j*l200){j l36;j l209;j l711;
  225. j l580,l777,l413;l36=(((l67)>(l187))?(l67):(l187));l36=(((l36)>(l133))?
  226. (l36):(l133));l209=(((l67)<(l187))?(l67):(l187));l209=(((l209)<(l133))?
  227. (l209):(l133));f(( *l200=(l209+l36)/2.0)<=0.0)m;f(( *l226=l711=l36-
  228. l209)>0.0){ *l226/=( *l200<=0.5)?(l36+l209):(2.0-l36-l209);}l29 m;
  229. l580=(l36-l67)/l711;l777=(l36-l187)/l711;l413=(l36-l133)/l711;f(l67==
  230. l36) *l202=(l187==l209?5.0+l413:1.0-l777);l29 f(l187==l36) *l202=(
  231. l133==l209?1.0+l580:3.0-l413);l29*l202=(l67==l209?3.0+l777:5.0-l580);
  232.  *l202/=6.0;}b l383(j l202,j l329,j l200,j*l67,j*l187,j*l133){j l36;
  233. l36=(l200<=0.5)?(l200* (1.0+l329)):(l200+l329-l200*l329);f(l36<=0){ *
  234. l67= *l187= *l133=0.0;}l29{j l209;j l851;a l761;j l835,l814,l724,l723
  235. ;l209=l200+l200-l36;l851=(l36-l209)/l36;l202*=6.0;l761=(a)l202;l835=
  236. l202-l761;l814=l36*l851*l835;l724=l209+l814;l723=l36-l814;l191(l761){
  237. l59 0: *l67=l36; *l187=l724; *l133=l209;l34;l59 1: *l67=l723; *l187=
  238. l36; *l133=l209;l34;l59 2: *l67=l209; *l187=l36; *l133=l724;l34;l59 3
  239. : *l67=l209; *l187=l723; *l133=l36;l34;l59 4: *l67=l724; *l187=l209; *
  240. l133=l36;l34;l59 5: *l67=l36; *l187=l209; *l133=l723;l34;l270:l34;}}}
  241.