COMMENT6.C   

<

^

>


                                #include<math.h>
                            /*1999*/#include<conio.h>
                        double PI=3.141592653589793,c=0,o
                      =0,_1[224],_2[224],_3[224],Sin,Cos,Tan
                    ;int far*_=(int far*)0xb8000000,s,i,n,_5=1
                  ,_4=112,_8,_9,Pi           [2000],_7[16]={+0,
                 2780,+732,0+                     4060,2783,2779,
               10975,12252,                          +735,10972,0+
              +731,12252,                               4063,31452,
            12255,4059}                                   ;char _0[2]
           [8][28]={{                                      {0,2,2,2,2
          ,2,0,0,0,0           ,0,0,0,2,2,0,0,              0,0,0,0,2,
          0,0,0,0,           2,0},{2,3,3,3,3,3,2,0           ,0,0,0,0,2
         ,3,3,2,0          ,0,0,0,2,3,2,0,0,2,3,2},{          2,3,2,2,2,
        2,3,2,0,         0,0,2,3,2,2,3,2,0,0,0,2,3,3,2         ,0,2,3,2}
       ,{2,3,2,         0,0,2,3,2,0,0,2,3,2,0,0,2,3,2,0         ,0,2,3,2,
       3,2,2,3        ,2},{2,3,2,0,0,    2,3,2,0,0,2,3,2,        0,0,2,3,2
      ,0,0,2,        3,2,2,3,2,3             ,2},{2,3,2,2,        2,2,3,2,
      0,0,0,2       ,3,2,2,3,2                  ,0,0,0,2,3,        2,0,2,3,
     3,2},{2       ,3,3,3,3,                     3,2,0,0,0,0       ,0,2,3,3
     ,2,0,0,       0,0,2,3,                        2,0,0,2,3        ,2},{0,2
    ,2,2,2,       2,0,0,0          ,0,              0,0,0,2,2        ,0,0,0,
    0,0,0,2      ,0,0,0,0      ,2,0}},{{1,0,         0,0,0,1,0       ,0,0,1,1
   ,0,0,0,       1,1,1,0      ,0,1,0,0,0,1,1,1        ,1,0},{1       ,0,0,0,0
   ,1,0,0,      1,0,0,1      ,0,0,1,0,0,1,0,1,0        ,0,1,0,        0,0,0,0
   },{1,0,      0,0,0,1     ,0,1,0,0,0,0,1,0,1,0,      0,0,1,1,       0,1,0,0
   ,0,0,0       ,0},{0     ,1,1,1,1,1,0,1,0,0,0,0,      1,0,1,0       ,0,0,0,1
  ,0,1,0,      0,0,0,0     ,0},{0,      0,0,0,0,1,      0,1,1,1        ,1,1,1,
  0,1,0,0      ,0,0,1     ,0,1,0,         0,1,1,0,0      },{0,0,       0,0,0,1
  ,0,1,0,      0,0,0,     1,0,1,            0,0,0,0      ,1,0,1,       0,0,0,0
  ,1,0},{      0,0,0,     0,1,0,             0,1,0,0     ,0,0,1,        0,1,0,
  0,0,0,1      ,0,0,1     ,0,0,0             ,1,0},{     0,1,1,1        ,0,0,0
  ,1,0,0,      0,0,1,     0,1,0,             0,0,0,1      ,0,0,0         ,1,1
  ,1,0,0}      }},_6,     pi[4000             ];void      cdecl/*
  */main(      void){      ;for(s=~~0;s<      +2000;      )Pi[s++
  ]=_[s];      while/*     */(!!!kbhit())      {for(s     =4000;s
   >0;)pi       [--s]=      0;n=00;for(;8      >s;s+=     1){Sin=
   sin(Tan      =(+s+9       )*PI/50);for      (i=0;i     <28;i=i
   +1){_1[      n]=Sin*       cos(Cos=+(o      +i*PI       /25))\
   ;_3[n]=      Sin*sin          (Cos);       _2[n++       ]=cos(
    Tan);}}      Sin=sin                     (c);Cos      =cos(c)
    ;for(s=      224;s>0;                   ){Tan=_2      [--s];;
     _2[s]=       Cos*_2[s                ]-Sin*_3[       +s];_3[
     s]=Cos*       _3[s]+Sin           *Tan;}n*=+0        ;for(;s
     <8;s++)       {for(i=0;i<28; i++){if((_6=(_4        >(i<<2)
      )?_0[0]       [s][i]:(_0[1][s][i]))>0>>0){         _8=(int
      )(1900.0        *_1[n]/(Cos=(100.0*_3[n]+         115.0))+
       /*DON^_^        sin(Cos)+cos(Sin)+Tan           +SY^_^*/
        40);_9=(         int)(1900.0*_2[n]            /Cos+25)
        ;if((_9>=            0)&&(_9<50              ))pi[+_9*
         80+_8]=_6                                 ;}n++;}}c=
          fmod(+c+PI                              /91,Tan=2*
           PI);o=fmod(                          o+PI/79,Tan
            );_4+=_5;if(                     _5>0){if(315<
             _4)_5=-1;}else{              if(_4<-285)_5=
               1;}while(inp(986)&8);while(0==(inp(986)&
                8));for(i=0;i<50;i+=2)for(s=0;s<80;)_
                  [40*i+s++]=_7[(pi[i*80+s]<<2)|pi[
                     i*80+s+80]];}for(s=0;s<2000;
                        )_[s++]=Pi[s];if(getch(
                             )==0)getch();}

  NFO RAR ZIP DETAILS /
2016-11-24