home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / HCSVGA10.ZIP / HCART.C next >
Text File  |  1992-01-08  |  3KB  |  146 lines
  1. /*
  2.  * HCART.C
  3.  *
  4.  * Copyright 1990,1991 Synergrafix Consulting
  5.  *          All Rights Reserved.
  6.  *
  7.  * November 19,1991
  8.  *
  9.  */
  10.  
  11. #include <stdio.h>
  12. #include <stdlib.h>
  13. #include <math.h>
  14. #include <conio.h>
  15. #include "hicolor.h"
  16.  
  17. int main()
  18. {
  19.     int i, j, k;
  20.  
  21.     if (!hcsetmodetseng(HC_SVGAHI)) {
  22.         printf("No HiColor video detected.\n");
  23.         exit(0);
  24.         }
  25.  
  26.     for (k=0;(k<19)&&!kbhit();k++)
  27.  
  28.     switch(k) {
  29.         case 1: for (j=0;j<480;j++) {
  30.                 for (i=0;i<640;i++) {
  31.                     hcputpoint(i,j,i*32+j);
  32.                     }
  33.                 }
  34.             break;
  35.         case 2:    for (j=0;j<480;j++) {
  36.                for (i=0;i<640;i++) {
  37.                    hcputpoint(i,j,i*j);
  38.                    }
  39.                }
  40.             break;
  41.         case 3: for (j=1;j<480;j++) {
  42.                for (i=1;i<640;i++) {
  43.                    hcputpoint(i,j,i%j);
  44.                    }
  45.                }
  46.             break;
  47.         case 4: for (j=1;j<480;j++) {
  48.                  for (i=1;i<640;i++) {
  49.                      hcputpoint(i,j,cos(j*i)*100 );
  50.                      }
  51.                  }
  52.             break;
  53.         case 5: for (j=1;j<480;j++) {
  54.                  for (i=1;i<640;i++) {
  55.                      hcputpoint(i,j,(i&j)*(i+j)   );
  56.                      }
  57.                  }
  58.             break;
  59.         case 6: for (j=1;j<480;j++) {
  60.                  for (i=1;i<640;i++) {
  61.                      hcputpoint(i,j,(i&j)*(i-j)   );
  62.                      }
  63.                  }
  64.             break;
  65.         case 7: for (j=1;j<480;j++) {
  66.                  for (i=1;i<640;i++) {
  67.                      hcputpoint(i,j,(i&j)*(i-j)*cos((i+j)/100)  );
  68.                      }
  69.                  }
  70.             break;
  71.         case 8: for (j=1;j<480;j++) {
  72.                  for (i=1;i<640;i++) {
  73.                      hcputpoint(i,j,(i&j)*(i+j)*cos((i+j)/100)  );
  74.                      }
  75.                  }
  76.             break;
  77.         case 9: for (j=1;j<480;j++) {
  78.                  for (i=1;i<640;i++) {
  79.                      hcputpoint(i,j,(i&j)*(i+j)*cos((i+j)/100)-sin((i-j)/100)*i  );
  80.                      }
  81.                  }
  82.             break;
  83.         case 10: for (j=1;j<480;j++) {
  84.                  for (i=1;i<640;i++) {
  85.                      hcputpoint(i,j, (i&j)*(i^j)  );
  86.                      }
  87.                  }
  88.             break;
  89.         case 11: for (j=1;j<480;j++) {
  90.                  for (i=1;i<480;i++) {
  91.                      hcputpoint(i+80,j, (i&j)*(i+j)  );
  92.                      }
  93.                  }
  94.             break;
  95.         case 12: for (j=1;j<480;j++) {
  96.                  for (i=1;i<480;i++) {
  97.                      hcputpoint(i+80,j, (i&j)*(i^j)  );
  98.                      }
  99.                  }
  100.             break;
  101.         case 13: for (j=1;j<480;j++) {
  102.                  for (i=1;i<480;i++) {
  103.                      hcputpoint(i+80,j, (i&j)+(i^j)  );
  104.                      }
  105.                  }
  106.             break;
  107.         case 14: for (j=1;j<480;j++) {
  108.                  for (i=1;i<480;i++) {
  109.                      hcputpoint(i+80,j, (i^j)-(i*j)  );
  110.                      }
  111.                  }
  112.             break;
  113.         case 15: for (j=1;j<480;j++) {
  114.                  for (i=1;i<640;i++) {
  115.                      hcputpoint(i,j, pow((float)(i/600.0),(float)(j/600.0))*300 );
  116.                      }
  117.                  }
  118.             break;
  119.         case 16: for (j=1;j<480;j++) {
  120.                  for (i=1;i<480;i++) {
  121.                      hcputpoint(i+80,j, (i/5)^(j/5) );
  122.                      }
  123.                  }
  124.             break;
  125.         case 17: for (j=1;j<480;j++) {
  126.                  for (i=1;i<640;i++) {
  127.                      hcputpoint(i,j, (i/5)^(j/5) );
  128.                      }
  129.                  }
  130.             break;
  131.         case 18: for (j=1;j<480;j++) {
  132.                  for (i=1;i<640;i++) {
  133.                      hcputpoint(i,j, (i+20)*(j+20) );
  134.                      }
  135.                  }
  136.             break;
  137.         }
  138.  
  139.     getch();
  140.  
  141.     hctextmode();
  142.  
  143.     return 0;
  144. }
  145.  
  146.