BUGFIX - CPI off by a factor of 10 X
[yari.git] / testcases / buzzard.c
blob95dcccd2b695bba8c98f47a3c63bdfb66aa276a6
1 #include <stdio.h>
2 #define X(s) (!(s&3)-((s&3)==2))
3 #define W while
4 char Z[82][82],A,B,f,g=26;z(q){return atoi(q);}m(d,l){return
5 Z[ B + X ( f +
6 3) * d+l *X(f+ 2 )][ A+X ( f ) * d +
7 l* X ( f + 3 ) ] ;}int
8 h= 0;D(p,s)char*s; {W(h>>3<p>> 3 ) {putchar('\t'
9 ); h = ( h +8
10 )&~7 ;}W(h < p ){putchar(' ');++h; }(void)printf(
11 "%s" , s ) ;h+=strlen(s);}main(x,a)char **a; {
12 # define P(x) (x?(5-(x))*(6-(x ))/2:11)
13 int b; { char b[256],i, j=0; FILE*F;F=fopen(x-1?a[1]:"buzzard.c","r");W(
14 fgets( b ,256 ,F)){for(i=0;b[ i];++ i)
15 Z[j][i ] =( b [ i ] ==' '?1:2*(b[i]==(x>2?*a[2]:'\\')));++j;}fclose
16 (F);}A =4 ; B = 3 ; f = 1;x >3? A=z(a[3]),B=z(a[4]):0;b='\n';do{if(b=='\n'
17 ){int y , s , d , p , q ,i;for
18 (y=-11; y<= 11;++ y){ for(s = 1 ,d=0;s+3;s-=2){for
19 (;d!=2 + 3 * s ; d+=s){
20 if(m(d,0) !=1 ){p=P (d) ;if (abs( y )
21 <p&& ! m ( d , 0 )||abs(y)>p)break;for
22 (i =-p;i<p;++i)D(g+i*2,"--");D(0,"-");break;}if(d==5)continue;
23 p=P(d+1);q=P(d);if
24 (abs(y) >q)continue;if
25 (abs(y) <p)D(g-s*(2*p+1),"|");else if(m(d,s)){if
26 (abs(y) <=p)for(i=(s==1?-q:p);i!=(s==1?-p:q);
27 (abs(y) ),++i)D(g+2*i+(s==-1),"--");}else if
28 (abs(y) ==p)D(g-s*(2*p+1),"|");else D(g-
29 (abs(y) *s*2),(s==1)^(y>0)?"\\":"/");}d-=s;}puts(
30 "");h=0;}}f+=(b=='r')-(b=='l');f&=3;if(b=='f'){if(!m(1,0))continue;
31 A+=X(f);B+=X(f-1);}}W((b=getchar())!=-1&&m(0,0)==1);return 0;}