home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cenvi23.zip / WRLDFRCT.CMM < prev    next >
Text File  |  1995-09-20  |  267b  |  8 lines
  1. // The World is Just a Huge Fractal
  2. //  author: Jari Karjala
  3.  
  4. for(o=0.075,h=1.5,t=r=o2=l=i=0.0,_=0,l2=80,s=3200;s%l2||(h-=o,t=-
  5. 2),s;4-(r=o2*o2)<(l=i*i)|++_==l2&&fwrite((--s%l2?_<l2?--_%6:6:7)+
  6. "World! \n",1,stdout)&&(o2=i=l=_=r=0,t+=o/2))o2=i*2*o2+h,i=l+t-r
  7.  
  8.