#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();}
|