16/scrasm/GENSQ.C

   1 #include <stdio.h>\r
   2 #include <string.h>\r
   3 #include <memory.h>\r
   4 #include <stdlib.h>\r
   5 \r
   6 #define WIDTH   256\r
   7 \r
   8 #define FILENAME "DIAGONAL.TIL"\r
   9 char    fn[100] = FILENAME;\r
  10 typedef unsigned char BYTE;\r
  11 typedef BYTE    ROW[16];\r
  12 typedef ROW     BITMAP[16];\r
  13 \r
  14 BITMAP  b;\r
  15 BITMAP  c;\r
  16 \r
  17 BITMAP  pattern={{1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0},\r
  18                  {1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0},\r
  19                  {1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0},\r
  20                  {1,0,0,0,1,1,0,0,0,1,1,0,0,0,0,0},\r
  21                  {1,0,0,1,0,0,0,0,0,0,0,2,0,0,0,0},\r
  22                  {0,0,1,0,0,1,1,0,1,1,0,0,2,0,0,0},\r
  23                  {0,0,1,0,0,1,2,0,1,2,0,0,2,0,0,0},\r
  24                  {0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0},\r
  25                  {0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0},\r
  26                  {0,1,0,0,1,2,0,0,0,1,2,0,0,2,0,0},\r
  27                  {0,0,1,0,1,2,1,1,1,1,2,0,2,0,0,0},\r
  28                  {0,0,1,0,0,2,2,2,2,2,0,0,2,0,0,2},\r
  29                  {0,0,0,1,0,0,0,0,0,0,0,2,0,0,0,2},\r
  30                  {0,0,0,0,2,2,0,0,0,2,2,0,0,0,0,2},\r
  31                  {0,0,0,0,0,0,2,2,2,0,0,0,0,0,2,2},\r
  32                  {0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2}};\r
  33 \r
  34 void copy_pattern(BITMAP b,BITMAP patt, BYTE l, BYTE m, BYTE h)\r
  35         {\r
  36         int     x,y;\r
  37 \r
  38         for (y=0; y<16; y++) {\r
  39                 for (x=0; x<16; x++) {\r
  40                         switch (patt[y][x]) {\r
  41                                 case 0:\r
  42                                         b[y][x] = m;\r
  43                                         break;\r
  44                                 case 1:\r
  45                                         b[y][x] = l;\r
  46                                         break;\r
  47                                 case 2:\r
  48                                         b[y][x] = h;\r
  49                                         break;\r
  50                                 }\r
  51                         }\r
  52                 }\r
  53         }\r
  54 \r
  55 /* Transforms linear to planar */\r
  56 void transform(BITMAP b,BITMAP c)\r
  57         {\r
  58         int     x,y,p;\r
  59         BYTE    *pb = (BYTE *)c;\r
  60 \r
  61         for (p=0; p<4; p++) {\r
  62                 for (y=0; y<16; y++) {\r
  63                         for (x=0; x<16; x+=4) {\r
  64                                 *(pb++) = b[y][x+p];\r
  65                                 }\r
  66                         }\r
  67                 }\r
  68         }\r
  69 \r
  70 void main(int argc,char *argv[])\r
  71         {\r
  72         FILE    *fp;\r
  73         int     i;\r
  74         int     width = WIDTH;\r
  75 \r
  76         fp = fopen(fn,"wb");\r
  77         if (!fp) {\r
  78                 printf("Couldn't open %s for write.\n",fn);\r
  79                 exit(1);\r
  80                 }\r
  81         if (argc > 1) {\r
  82                 width = atoi(argv[1]);\r
  83                 if (width > WIDTH)\r
  84                         width = WIDTH;\r
  85                 printf("Width = %d\n",width);\r
  86                 }\r
  87 \r
  88         for (i = 0; i< width; i++) {\r
  89                 BYTE    less,more;\r
  90 \r
  91                 less = (BYTE)((i + width - 1) % width);\r
  92                 more = (BYTE)((i + 1) % width);\r
  93                 copy_pattern(b, pattern, less, (BYTE)i, more);\r
  94                 transform(b,c);\r
  95                 fwrite(c, 16,16, fp);\r
  96                 printf("Square %d\r",i);\r
  97                 }\r
  98         fclose(fp);\r
  99         printf("All done!     \n");\r
 100         exit(0);\r
 101         }\r
 102 \1a