plz.c

   1 #include <stdio.h>\r
   2 #include <math.h>\r
   3 #include <conio.h>\r
   4 #include <dos.h>\r
   5 #include "plz.h"\r
   6 //#include "tweak.h"\r
   7 \r
   8 //#define DO_TABLES\r
   9 #define DPII (3.1415926535*2.0)\r
  10 \r
  11 #define LINELEN 41\r
  12 #define MAXY 280\r
  13 #define YADD 0\r
  14 #define XADD 0\r
  15 #define SINMASK 4095\r
  16 #define PLZSINI(p1,p2,p3,p4)  *ptr++ = (psini[x*32+lsini[y*2+p2]*16+p1] + psini[y*4+lsini[x*64+p4]*4+p3]) + (psini[x*32+16+lsini[y*2+p2]*16+p1] + psini[y*4+lsini[x*64+32+p4]*4+p3])*256;\r
  17 \r
  18 // extern int init_copper();\r
  19 // extern int close_copper();\r
  20 //extern int far frame_count;\r
  21 int frame_count;\r
  22 extern int far cop_drop;\r
  23 extern int far cop_plz;\r
  24 extern int far cop_start;\r
  25 extern char far * cop_fadepal;\r
  26 extern char fadepal[768];\r
  27 extern char far *cop_pal;\r
  28 extern int  do_pal;\r
  29 \r
  30 //extern int plzline(int y, int vseg);\r
  31 //extern int setplzparas(int c1, int c2, int c3, int c4);\r
  32 //extern int set_plzstart(int y);\r
  33 extern char far psini[16384];\r
  34 extern int far lsini4[8192];\r
  35 extern int far lsini16[8192];\r
  36 \r
  37 int (* vmem)[LINELEN]=MK_FP(0x0a000,0);\r
  38 //char  psini[16384]=\r
  39 //#include "psini.inc"\r
  40 //char  lsini[16384]=\r
  41 //#include "lsini.inc"\r
  42 \r
  43 char    ptau[256]=\r
  44 #include "ptau.inc"\r
  45 \r
  46 int     pals[6][768];\r
  47 int     curpal=0;\r
  48 int     timetable[10]={64*6*2-45,64*6*4-45,64*6*5-45,64*6*6-45,64*6*7+90,0};\r
  49 int     ttptr=0;\r
  50 \r
  51 int     l1=1000, l2=2000, l3=3000, l4=4000;\r
  52 int     k1=3500, k2=2300, k3=3900, k4=3670;\r
  53 \r
  54 int     il1=1000, il2=2000, il3=3000, il4=4000;\r
  55 int     ik1=3500, ik2=2300, ik3=3900, ik4=3670;\r
  56 \r
  57 int     inittable[10][8]={{1000,2000,3000,4000,3500,2300,3900,3670},\r
  58                           {1000,2000,4000,4000,1500,2300,3900,1670},\r
  59                           {3500,1000,3000,1000,3500,3300,2900,2670},\r
  60                           {1000,2000,3000,4000,3500,2300,3900,3670},\r
  61                           {1000,2000,3000,4000,3500,2300,3900,3670},\r
  62                           {1000,2000,3000,4000,3500,2300,3900,3670}};\r
  63 \r
  64 void plz(){\r
  65         register int x,y;\r
  66         int     *ptr;\r
  67         long    tim=0,count=0;\r
  68         int     ch=0,sync=2;\r
  69 \r
  70         //while(dis_musplus()<0 && !dis_exit());\r
  71         //dis_setmframe(0);\r
  72 \r
  73         init_plz();\r
  74         cop_drop=128;\r
  75         cop_fadepal=(char far *)pals[curpal++];\r
  76 \r
  77         frame_count=0;\r
  78         while(!kbhit())\r
  79                 {\r
  80                 tim+=frame_count; frame_count=0; count++;\r
  81                 //if(dis_getmframe()>timetable[ttptr])\r
  82                 //      {\r
  83                         memset(fadepal,0,768);\r
  84                         cop_drop=1;\r
  85                         cop_fadepal=(char far *)pals[curpal++];\r
  86                         ttptr++;\r
  87                         il1=inittable[ttptr][0];\r
  88                         il2=inittable[ttptr][1];\r
  89                         il3=inittable[ttptr][2];\r
  90                         il4=inittable[ttptr][3];\r
  91                         ik1=inittable[ttptr][4];\r
  92                         ik2=inittable[ttptr][5];\r
  93                         ik3=inittable[ttptr][6];\r
  94                         ik4=inittable[ttptr][7];\r
  95                 //      }\r
  96                 if(curpal==5 && cop_drop>64) break;\r
  97 \r
  98                 __asm\r
  99                 {\r
 100                         mov dx, 3c4h\r
 101                         mov ax, 0a02h\r
 102                         out dx, ax\r
 103                 }\r
 104 \r
 105                 setplzparas(k1,k2,k3,k4);\r
 106                 for(y=0;y<MAXY;y+=2)\r
 107                         plzline(y,0x0a000+y*6+YADD*6);\r
 108                 setplzparas(l1,l2,l3,l4);\r
 109                 for(y=1;y<MAXY;y+=2)\r
 110                         plzline(y,0x0a000+y*6+YADD*6);\r
 111 \r
 112 \r
 113                 __asm\r
 114                 {\r
 115                         mov dx, 3c4h\r
 116                         mov ax, 0502h\r
 117                         out dx, ax\r
 118                 }\r
 119 \r
 120                 setplzparas(k1,k2,k3,k4);\r
 121                 for(y=1;y<MAXY;y+=2)\r
 122                         plzline(y,0x0a000+y*6+YADD*6);\r
 123                 setplzparas(l1,l2,l3,l4);\r
 124                 for(y=0;y<MAXY;y+=2)\r
 125                         plzline(y,0x0a000+y*6+YADD*6);\r
 126                 }\r
 127         cop_drop=0; frame_count=0; //while(frame_count==0);\r
 128         set_plzstart(500);\r
 129         cop_plz=0;\r
 130         }\r
 131 \r
 132 void init_plz()\r
 133         {\r
 134         int     a,b,c,z;\r
 135         int     *pptr=pals;\r
 136 \r
 137 #ifdef  DO_TABLES\r
 138         {\r
 139         FILE    *f1,*f2,*f3,*f4;\r
 140         f1=fopen("lsini4.inc","wb");\r
 141         f2=fopen("lsini16.inc","wb");\r
 142         f3=fopen("psini.inc","wb");\r
 143         f4=fopen("ptau.inc","wb");\r
 144 \r
 145         for(a=0;a<1024*16;a++)\r
 146                 {\r
 147                 if(a<1024*8)\r
 148                         {\r
 149                         lsini4[a]=(sin(a*DPII/4096)*55+sin(a*DPII/4096*5)*8+sin(a*DPII/4096*15)*2+64)*8;\r
 150                         lsini16[a]=(sin(a*DPII/4096)*55+sin(a*DPII/4096*4)*5+sin(a*DPII/4096*17)*3+64)*16;\r
 151                         }\r
 152                 psini[a]=sin(a*DPII/4096)*55+sin(a*DPII/4096*6)*5+sin(a*DPII/4096*21)*4+64;\r
 153                 if((a&15)==0)\r
 154                         {\r
 155                         if(a<1024*8)\r
 156                                 {\r
 157                                 fprintf(f1,"\ndw        %4d",lsini4[a]);\r
 158                                 fprintf(f2,"\ndw        %4d",lsini16[a]);\r
 159                                 }\r
 160                         fprintf(f3,"\ndb        %4d",psini[a]);\r
 161                         }\r
 162                 else    {\r
 163                         if(a<1024*8)\r
 164                                 {\r
 165                                 fprintf(f1,",%4d",lsini4[a]);\r
 166                                 fprintf(f2,",%4d",lsini16[a]);\r
 167                                 }\r
 168                         fprintf(f3,",%4d",psini[a]);\r
 169                         }\r
 170                 }\r
 171 \r
 172         fprintf(f4,"{\n%d",ptau[0]=0);\r
 173         for(a=1;a<=128;a++)\r
 174                 {\r
 175                 fprintf(f4,",%3d",ptau[a]=cos(a*DPII/128+3.1415926535)*31+32);\r
 176                 if(!(a&15)) fputc('\n',f4);\r
 177                 }\r
 178         fputc('}',f4); fputc(';',f4);\r
 179 \r
 180         fclose(f1); fclose(f2); fclose(f3); fclose(f4);\r
 181         }\r
 182 #endif\r
 183         tw_opengraph2();\r
 184         cop_start=96*(682-400);\r
 185         set_plzstart(60);\r
 186 //++++  init_copper();\r
 187         for(a=0;a<256;a++) tw_setrgbpalette(a,63,63,63);\r
 188 \r
 189 //      RGB\r
 190         pptr=&pals[0][3];\r
 191         for(a=1;a<64;a++) *pptr++=ptau[a   ],*pptr++=ptau[0   ],*pptr++=ptau[0   ];\r
 192         for(a=0;a<64;a++) *pptr++=ptau[63-a],*pptr++=ptau[0   ],*pptr++=ptau[0   ];\r
 193         for(a=0;a<64;a++) *pptr++=ptau[0   ],*pptr++=ptau[0   ],*pptr++=ptau[a];\r
 194         for(a=0;a<64;a++) *pptr++=ptau[a   ],*pptr++=ptau[0   ],*pptr++=ptau[63-a];\r
 195 \r
 196 //      RB-black\r
 197         pptr=&pals[1][3];\r
 198         for(a=1;a<64;a++) *pptr++=ptau[a   ],*pptr++=ptau[0   ],*pptr++=ptau[0   ];\r
 199         for(a=0;a<64;a++) *pptr++=ptau[63-a],*pptr++=ptau[0   ],*pptr++=ptau[a   ];\r
 200         for(a=0;a<64;a++) *pptr++=ptau[0   ],*pptr++=ptau[a   ],*pptr++=ptau[63-a];\r
 201         for(a=0;a<64;a++) *pptr++=ptau[a   ],*pptr++=ptau[63  ],*pptr++=ptau[a   ];\r
 202 \r
 203 //      RB-white\r
 204         pptr=&pals[3][3];\r
 205         for(a=1;a<64;a++) *pptr++=ptau[a   ],*pptr++=ptau[0   ],*pptr++=ptau[0   ];\r
 206         for(a=0;a<64;a++) *pptr++=ptau[63  ],*pptr++=ptau[a   ],*pptr++=ptau[a   ];\r
 207         for(a=0;a<64;a++) *pptr++=ptau[63-a],*pptr++=ptau[63-a],*pptr++=ptau[63  ];\r
 208         for(a=0;a<64;a++) *pptr++=ptau[0   ],*pptr++=ptau[0   ],*pptr++=ptau[63  ];\r
 209 \r
 210 //      white\r
 211         pptr=&pals[2][3];\r
 212         for(a=1;a<64;a++) *pptr++=ptau[0   ]/2,*pptr++=ptau[0   ]/2,*pptr++=ptau[0   ]/2;\r
 213         for(a=0;a<64;a++) *pptr++=ptau[a   ]/2,*pptr++=ptau[a   ]/2,*pptr++=ptau[a   ]/2;\r
 214         for(a=0;a<64;a++) *pptr++=ptau[63-a]/2,*pptr++=ptau[63-a]/2,*pptr++=ptau[63-a]/2;\r
 215         for(a=0;a<64;a++) *pptr++=ptau[0   ]/2,*pptr++=ptau[0   ]/2,*pptr++=ptau[0   ]/2;\r
 216 \r
 217 //      white II\r
 218         pptr=&pals[4][3];\r
 219         for(a=1;a<75;a++) *pptr++=ptau[63-a*64/75],*pptr++=ptau[63-a*64/75],*pptr++=ptau[63-a*64/75];\r
 220         for(a=0;a<106;a++)*pptr++=0,*pptr++=0,*pptr++=0;\r
 221         for(a=0;a<75;a++) *pptr++=ptau[a*64/75]*8/10,*pptr++=ptau[a*64/75]*9/10,*pptr++=ptau[a*64/75];\r
 222 \r
 223         pptr=pals;\r
 224         for(a=0;a<768;a++,pptr++) *pptr=(*pptr-63)*2;\r
 225         for(a=768;a<768*5;a++,pptr++) *pptr*=8;\r
 226         }\r
 227 \r