Advertisement
Sosowski

ioccc

Jan 13th, 2013
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 1.99 KB | None | 0 0
  1. #include <stdio.h>
  2. #include <windows.h>
  3. #include <gl/gl.h>
  4. #include <gl/glu.h>
  5. #define sdf ,640,480
  6. #define n 40000
  7. #define O_O ()%
  8. #define uuu r
  9. #define m ,
  10. #define z (
  11. #define Z ))
  12. #define uba(x,y) x;gl##y;
  13. #define F(a,b,c,d) gl##a##c##b##c##d
  14. #define grh(a,b,c,d,e) gl##a##e##c;gl##b##e##d;
  15. #define wrh(a,b,c,d,e,f,g) a##g##c(e b##g##d f)
  16. #define fr(x) r[2000+(x)]
  17. #define U m 0
  18. #define bzu(x,a,b) *a##in(((x)*(r##b
  19. #define gzu(a) (a)))*(.2/a)
  20. #define fd(a,b,c) (c?sin(b):cos(b))*a
  21. #define O m f
  22.  
  23. float a=0,b[n*3],*d,f=1,pZ=7;int c,*uuu=b;int main(float X,float*XX){memset(b,
  24. 0,n*12);fr(-1999)=DefWindowProc;fr(-1992)=XX;fr(-1991)=XX;fr(0) = wrh(Crea,
  25. Regis,Window,rClass(b),,m XX U m 1<<31 m 1<<31 sdf U U U U,te);fr(10) = GetDC(
  26. fr(0));wrh(Set,Choose,at,at(fr(10), b+800),fr(10) m,m b+100,PixelForm);wrh(,,
  27. MakeCurrent,CreateContext(fr(10)),fr(10) m,,wgl);grh(Vertex,,er(3, 0x1406, 0,
  28. b+1),Size(2),Point);fr(20)=0x0B70;grh(Dis,En,e(fr(20)+1),e(fr(20)^0x92),abl);
  29. wrh(Update,Show,ow,ow(fr(0), 1),fr(0)+,,Wind);grh(Viewport(0 U sdf);glMa,Frustum(
  30. f-2 O m-f O O m fr(20));glMa,e(fr(20)^0x1c71);glLoadIdentity();,e(fr(20)^
  31. 0x1c71-1);F(Enabl,Cli,e,ntState)(0x8074);,trixMod);wrh(whil,GetAsyncKeyStat,
  32. e,e(0x1b),!,,){srand(470);f+=.005;a+=sin(f)*sin(f)*.01+.001;grh(Bl,LoadId,dFunc(
  33. 1,1),tity(),en);gluLookAt(14 bzu(f,s,and) O_O gzu(100) ) m 14 bzu(f,s,and)
  34. O_O gzu(100)) m 14 bzu(f,s,and) O_O gzu(100) ) U U U U m 1 U);for(d=b,c=0;c<
  35. n*3;c++,d++){*d=(rand O_O 2?-1:1)bzu(a,s,and) O_O gzu(200))*(rand O_O z z rand
  36. O_O 2000)+1 Z *.01;*d*=(c%3)?1:.1;}grh(Colo,DrawAr,r4f(fd(fd(fd(fd(.2,f,1),f,1
  37. ),f,1),f,1)+.02,.05,fd(fd(fd(fd(.2,f,0),f,0),f,0),f,0)+.02 m 1),rays(0 U m n),);
  38. grh(Bl,LoadId,dFunc(0x302,0x303),tity(),en);grh(Beg,Colo,in(pZ),r4f(0 U U ,.08
  39. -fd(fd(.05,f,1),f,1)),);grh(V,V,x3f(-pZ m -pZ m -pZ*.25),x3f(pZ m -pZ m -pZ*.25
  40. ),erte);grh(V,V,x3f(pZ m pZ m -pZ*.25),x3f(-pZ m pZ m -pZ*.25),erte);grh(E,Flu,
  41. nd(),sh(),);wrh(while z Peek,Dispatch,age,age z b,d U U U m 1 Z,,Mess);}return.5;}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement