home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / FASTMC.LHA / fastmc / src / plasma.c next >
Encoding:
C/C++ Source or Header  |  1995-10-31  |  5.0 KB  |  197 lines
  1. /* Plasma v0.3 (23 October 1995) - ©1995 by WK-Artworks */
  2.  
  3. /*
  4.  
  5.  wkmc is a simple true-color-display using a 8-bit-screen,
  6.  the idea behind this came from Stefan Kost and Smack/IFT
  7.  
  8.  NOTE: I think it's fast beeing pure C !
  9.  
  10.  
  11.  Advantages (compared against MultiColor):
  12.   -terrible high speed
  13.   -picture-size and -aspect isn't changed
  14.   -no ugly diagonal-dithering
  15.   -no flickering (uses Multiscan)
  16.   -uses all 256 registers (not only 255)
  17.   -every color-channel (RGB) has a diffent number of
  18.    shades ("eye-sensitive")
  19. */
  20.  
  21. #include "wkmc.h"
  22.  
  23. void fSetPixel(int x,int y,double r,double g,double b) {
  24.  SetPixel(x,y,(UBYTE)(256.0*r),(UBYTE)(256.0*g),(UBYTE)(256.0*b));
  25. }
  26.  
  27. void fGetPixel(int x,int y,double *r,double *g,double *b) {
  28.  UBYTE rr,gg,bb;
  29.  GetPixel(x,y,&rr,&gg,&bb);
  30.  (*r)=(double)rr*f256;
  31.  (*g)=(double)gg*f256;
  32.  (*b)=(double)bb*f256;
  33. }
  34.  
  35. double rrmax=1.0/(double) RAND_MAX;
  36.  
  37. double drand48(void)
  38. {
  39.  return((double)rand()*rrmax);
  40. } 
  41.  
  42.  
  43. int main(int argc,char **argv) {
  44.  int width,height,w2,h2,qt=0;
  45.  double frac=20.0;
  46.  double aktr,aktg,aktb,c1r,c1g,c1b,c3r,c3g,c3b,c5r,c5g,c5b,c7r,c7g,c7b,c9r,c9g,c9b,f13,f14;
  47.  UWORD f[300][4],dimx,dimy;
  48.  double rndf,dimf;
  49.  WORD ptr=0;
  50.  UWORD x1,x2,x3,y1,y2,y3;
  51.  
  52.  struct IntuiMessage *imsg;
  53.  ULONG iclass;
  54.  USHORT icode;
  55.  printf("\n Plasma v0.4 - ©1995 by WK-Artworks\n");
  56.  printf(" (Plasma-algorithm by Stefan Kost)\n");
  57.  printf("------------------------------------\n");
  58.  width=320;
  59.  height=240;
  60.  if(argc<2) {printf(" Usage: plasma <frac> [LARGE]\n");return(1);}
  61.  frac=strtod(argv[1],NULL);
  62.  if(frac<=0.0) frac=20.0;
  63.  if(argc>2) {width=640;height=480;}
  64.  if(init(width,height)==0) {
  65.  printf(" Resolution : %dx%d\n",width,height);
  66.  
  67.   /* do it */
  68.   w2=width/2;h2=height/2;
  69.   f13=(double)1.0/(double)3.0;
  70.   f14=(double)1.0/(double)4.0;
  71.  
  72.   time(&tm1);
  73.   dimf=frac/((double)h2*(double)w2);
  74.   f[0][0]=0;f[0][1]=0;f[0][2]=w2-1;f[0][3]=h2-1;
  75.   aktr=drand48();aktg=drand48();aktb=drand48();
  76.   fSetPixel(0,0,aktr,aktg,aktb);
  77.   aktr=drand48();aktg=drand48();aktb=drand48();
  78.   fSetPixel(w2-1,0,aktr,aktg,aktb);
  79.   aktr=drand48();aktg=drand48();aktb=drand48();
  80.   fSetPixel(w2-1,h2-1,aktr,aktg,aktb);
  81.   aktr=drand48();aktg=drand48();aktb=drand48();
  82.   fSetPixel(0,h2-1,aktr,aktg,aktb);
  83.   while(ptr>-1) {
  84.  
  85.     dimx=f[ptr][2]-f[ptr][0];
  86.     dimy=f[ptr][3]-f[ptr][1];
  87.     if(dimx>1 || dimy>1) {
  88.     rndf=(dimx*dimy)*dimf;
  89.      x1=f[ptr][0];x3=f[ptr][2];x2=x1+((x3-x1)>>1);
  90.      y1=f[ptr][1];y3=f[ptr][3];y2=y1+((y3-y1)>>1);
  91.      fGetPixel(x1,y1,&c1r,&c1g,&c1b);
  92.     fGetPixel(x3,y1,&c3r,&c3g,&c3b);
  93.     fGetPixel(x3,y3,&c9r,&c9g,&c9b);
  94.     fGetPixel(x1,y3,&c7r,&c7g,&c7b);
  95.     c5r=(c1r+c3r+c7r+c9r)*f14+(rndf*(0.5-drand48()));
  96.     if(c5r>1.0) c5r=1.0;
  97.      if(c5r<0.0) c5r=0.0;
  98.      c5g=(c1g+c3g+c7g+c9g)*f14+(rndf*(0.5-drand48()));
  99.     if(c5g>1.0) c5g=1.0;
  100.      if(c5g<0.0) c5g=0.0;
  101.      c5b=(c1b+c3b+c7b+c9b)*f14+(rndf*(0.5-drand48()));
  102.      if(c5b>1.0) c5b=1.0;
  103.     if(c5b<0.0) c5b=0.0;
  104.      fSetPixel(x2,y2,c5r,c5g,c5b);
  105.     fGetPixel(x2,y1,&aktr,&aktb,&aktg);
  106.     if(aktr==0.0 && aktg==0.0 && aktb==0.0) {
  107.      aktr=(c1r+c3r+c5r)*f13;
  108.       aktg=(c1g+c3g+c5g)*f13;
  109.      aktb=(c1b+c3b+c5b)*f13;
  110.      fSetPixel(x2,y1,aktr,aktg,aktb);
  111.      }
  112.     fGetPixel(x1,y2,&aktr,&aktg,&aktb);
  113.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  114.      aktr=(c1r+c7r+c5r)*f13;
  115.      aktg=(c1g+c7g+c5g)*f13;
  116.      aktb=(c1b+c7b+c5b)*f13;
  117.      fSetPixel(x1,y2,aktr,aktg,aktb);
  118.     }
  119.      fGetPixel(x3,y2,&aktr,&aktg,&aktb);
  120.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  121.      aktr=(c3r+c9r+c5r)*f13;
  122.       aktg=(c3g+c9g+c5g)*f13;
  123.       aktb=(c3b+c9b+c5b)*f13;
  124.       fSetPixel(x3,y2,aktr,aktg,aktb);
  125.      }
  126.      fGetPixel(x2,y3,&aktr,&aktg,&aktb);
  127.     if((aktr==0.0) && (aktg==0.0) && (aktb==0.0)) {
  128.      aktr=(c7r+c9r+c5r)*f13;
  129.      aktg=(c7g+c9g+c5g)*f13;
  130.      aktb=(c7b+c9b+c5b)*f13;
  131.      fSetPixel(x2,y3,aktr,aktg,aktb);
  132.     }
  133.     f[ptr][2]=x2;f[ptr][3]=y2;ptr++;
  134.     f[ptr][0]=x2;f[ptr][1]=y1;f[ptr][2]=x3;f[ptr][3]=y2;ptr++;
  135.     f[ptr][0]=x2;f[ptr][1]=y2;f[ptr][2]=x3;f[ptr][3]=y3;ptr++;
  136.     f[ptr][0]=x1;f[ptr][1]=y2;f[ptr][2]=x2;f[ptr][3]=y3;
  137.     if(ptr>250) {
  138.      printf("stack overflow\n");
  139.      ptr=-1;
  140.     }
  141.     }
  142.     else ptr--;
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.     imsg=(struct IntuiMessage*)GetMsg(theWindow->UserPort);
  153.     if(imsg!=NULL) {
  154.      iclass=imsg->Class;
  155.      icode=imsg->Code;
  156.      ReplyMsg((struct Message*)imsg);
  157.      switch(iclass) {
  158.       case IDCMP_VANILLAKEY:switch(icode) {
  159.                              case ' ':cleanup();return(0);break;
  160.                              case 27:cleanup();return(0);break;
  161.                             }
  162.      }
  163.     }
  164.  
  165.   }
  166.  
  167.   time(&tm2);
  168.   tm=difftime(tm2,tm1);
  169.   printf(" Render-time: %lds\n",(ULONG)tm);
  170.  
  171.  
  172.   /* wait */
  173.   do {
  174.    WaitPort(theWindow->UserPort);
  175.    do {
  176.     imsg=(struct IntuiMessage*)GetMsg(theWindow->UserPort);
  177.     if(imsg!=NULL) {
  178.      iclass=imsg->Class;
  179.      icode=imsg->Code;
  180.      ReplyMsg((struct Message*)imsg);
  181.      switch(iclass) {
  182.       case IDCMP_VANILLAKEY:switch(icode) {
  183.                              case ' ':qt=1;break;
  184.                             }
  185.      }
  186.     }
  187.    } while(imsg!=NULL);
  188.   } while(qt==0);
  189.   /* clean up*/
  190.   cleanup();
  191.  }
  192.  return(0);
  193.  printf("\n");
  194. }
  195.  
  196.  
  197.