github publish

VIDEO/PLAYCNM.C

@@ -0,0 +1,356 @@
+#include <types.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <bgraph.h>
+#include <i86.h>
+#include <bios.h>
+#include "anipack.h"
+#include "cinema.h"
+#include <memman.h>
+
+
+#define CINEMA ".cnm"
+#define PLATNO_X 640
+#define PLATNO_Y 184
+
+#define PLATNO_S (PLATNO_X*PLATNO_Y)
+#define POZICE (60)
+
+#define DECOMP_BUFF 150000
+
+FILE *anim;
+word *playscreen;
+word *playscreen2;
+word *paleta;
+word *show_place;
+char *decomp_buff;
+char *ip;
+word direct_line_len=640*8;
+char direct=0;
+char fusing=1;
+char ifuse=0;
+char interlaced=0;
+char sdiff=0;
+
+char test_frame[120000];
+
+void priponu(char *source,char *target,int n)
+  {
+  char *c,*d;
+
+  c=strrchr(source,'.');
+  d=strrchr(source,'\\');
+  strncpy(target,source,n);
+  if (c==NULL || c<d) strcat(target,CINEMA);
+  }
+
+
+char col_table[]={0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4};
+
+void decompr_box(word *adr)
+  {
+  char mode;
+  word palxlat[16];
+  int i;
+
+  mode=*ip++;
+  if (mode==0)
+     {
+     if ((*ip)--)
+        {
+        ip--;
+        return;
+        }
+     *ip=0;
+     mode=1;
+     }
+  if (mode==255)
+     {
+     ip--;
+     return;
+     }
+  if ((mode>16 && mode<64) || mode>64) exit(0);
+  if (mode<64)
+     {
+     for(i=0;i<mode;i++) palxlat[i]=paleta[*ip++];
+     mode=col_table[mode-1];
+     }
+  else mode=8;
+  switch (mode)
+     {
+     case 0:load_0bit(adr,palxlat);break;
+     case 1:ip=load_1bit(ip,adr,palxlat);break;
+     case 2:ip=load_2bit(ip,adr,palxlat);break;
+     case 3:ip=load_3bit(ip,adr,palxlat);break;
+     case 4:ip=load_4bit(ip,adr,palxlat);break;
+     case 8:ip=load_8bit(ip,adr,paleta);break;
+     }
+  }
+
+void decompr_pict()
+  {
+  int x;
+  int y,yy;
+
+  ip=decomp_buff;
+  yy=0;
+  for (y=0;y<23;y++,yy+=direct_line_len)
+     for (x=0;x<640;x+=8)
+       decompr_box(playscreen+x+yy);
+  }
+
+
+
+void load_frame(FILE *anim)
+  {
+  int size;
+  fread(&size,1,sizeof(size),anim);
+  fread(decomp_buff,1,size,anim);
+  decomp_buff[size]=0xff;
+  memcpy(test_frame,decomp_buff,size);
+  }
+
+
+void load_palette(FILE *anim)
+  {
+  word i;
+  word size;
+  fread(&i,1,2,anim);
+  fread(&size,1,2,anim);
+  fread(&paleta[i],2,size,anim);
+  //if (fusing) for(i=1;i<256;i++) paleta[i]&=0x7bdf;
+  if (sdiff) paleta[0]=0;
+  }
+
+
+void init_cinema()
+  {
+  playscreen=getmem(PLATNO_S*sizeof(*playscreen));
+  memset(playscreen,0xff,PLATNO_S*sizeof(*playscreen));
+  playscreen2=getmem(PLATNO_S*sizeof(*playscreen));
+  memset(playscreen2,0xff,PLATNO_S*sizeof(*playscreen));
+  paleta=getmem(512);
+  memset(paleta,0xff,sizeof(paleta));
+  if (banking) show_place=(word *)(POZICE*2048);else show_place=lbuffer+POZICE*640;
+  curcolor=0;bar(0,0,639,479);
+  showview(0,0,0,0);
+  decomp_buff=getmem(DECOMP_BUFF);
+  }
+
+void done_cinema()
+  {
+  free(playscreen);
+  free(playscreen2);
+  free(paleta);
+  free(decomp_buff);
+  }
+
+void fuse_frames()
+  {
+  long *p=(long *)playscreen,*q=(long *)playscreen2;
+  int i=PLATNO_S/2;
+  do
+     {
+     *q=(*q & 0x7bde7bde)+(*p & 0x7bde7bde)>>1;
+     q++;p++;i--;
+     }
+  while (i);
+  }
+
+void copy_frames()
+  {
+  memcpy(playscreen2,playscreen,PLATNO_S*2);
+  }
+
+void display_interlaced(word *playscreen2,int ofs)
+  {
+  word *p,*q;
+  int i=180;
+  p=show_place+ofs;
+  q=playscreen2;
+  do
+     {
+     if (banking) memcpy(mapvesaadr1(p),q,1280);else memcpy(p,q,1280);
+     q+=640;
+     p+=banking?2048:1280;i--;
+     }
+  while (i);
+  }
+
+void display_full_lfb(word *playscreen2)
+  {
+  word *p,*q;
+  int i=180;
+  p=show_place;
+  q=playscreen2;
+  do
+     {
+     int j=320;
+     memcpy(p,q,1280);
+     p+=640;
+     do
+        {
+        *(long *)p=(*(long *)q & 0x7bde7bde)+(*(long *)(q+640) & 0x7bde7bde)>>1;q+=2;p+=2;j--;
+        }
+     while(j);
+     i--;
+     }
+  while (i);
+  }
+
+void display_full_bank(word *playscreen2)
+  {
+  word *p,*q;
+  long *z;
+  int i=180;
+  p=show_place;
+  q=playscreen2;
+  do
+     {
+     int j=320;
+     memcpy(mapvesaadr1(p),q,1280);
+     p+=1024;
+     z=(long *)mapvesaadr1(p);
+     do
+        {
+        *z=(*(long *)q & 0x7bde7bde)+(*(long *)(q+640) & 0x7bde7bde)>>1;q+=2;z++;j--;
+        }
+     while(j);
+     p+=1024;
+     i--;
+     }
+  while (i);
+  }
+
+
+void show_play_screen()
+  {
+  if (interlaced)
+     {
+     if (fusing)
+       {
+       if (ifuse) display_interlaced(playscreen,(banking?1024:640));
+       else
+       {
+       if (!banking) display_interlaced_fused_lfb(playscreen,playscreen2,show_place);
+       else display_interlaced_fused_bank(playscreen,playscreen2,show_place);
+       }
+       delay(30);
+       }
+     display_interlaced(playscreen,0);
+     }
+  else
+     {
+     if (fusing)
+        {
+        fuse_frames();
+        if (banking) display_full_bank(playscreen2);else display_full_lfb(playscreen2);
+        delay(30);
+        copy_frames();
+        }
+     if (banking) display_full_bank(playscreen);else display_full_lfb(playscreen);
+     }
+  }
+
+void set_direct_mode()
+  {
+  fusing=0;
+  if (!banking)
+     {
+     direct=1;
+     playscreen=show_place;
+     anim_line_len=1280*2;
+     direct_line_len=640*16;
+     }
+
+  }
+
+void play_cinema(FILE *anim)
+  {
+  char i;
+
+  do
+     {
+  fread(&i,1,1,anim);
+  switch (i)
+     {
+     case TRACK_VIDEO:
+           load_frame(anim);
+           decompr_pict();
+           break;
+     case TRACK_PALETTE:
+           load_palette(anim);
+           break;
+     case TRACK_MUSIC:break;
+     case TRACK_END:return;
+     case TRACK_DELAY:
+           if (!direct)
+              show_play_screen();
+           break;
+     default: return;
+     }
+  if (_bios_keybrd(_KEYBRD_READY)) return;
+     }
+  while (1);
+  }
+
+void analyze_params(char *c)
+  {
+  while (*c)
+     switch (*c++)
+        {
+        case 'i':
+        case 'I':interlaced=1;break;
+        case 's':
+        case 'S':fusing=0;break;
+        case 'd':
+        case 'D':direct=1;break;
+        case 'v':
+        case 'V':sdiff=1;break;
+        case 'f':
+        case 'F':ifuse=1;interlaced=1;fusing=1;break;
+        }
+
+  }
+
+void main(int argc,char **argv)
+  {
+  char filename[129];
+
+  if (argc<2)
+     {
+     puts("Pouziti: PLAYCNM film[.cnm] [I][D][S]");
+     puts("     I - Interlaced, prokladane");
+     puts("     S  -Skip,vypina dvojnasobny pocet Framu");
+     puts("     D - Direct, prima dekomprese do LFB (totez jako IS, ale rychle)");
+     puts("     V - View differences, zobrazuje pouze rozdily (jen ty dulezite)");
+     puts("     F - Zapina specialni prokladaci rezim + I, ignoruje pri D");
+     return;
+     }
+  if (argc>=3) analyze_params(argv[2]);
+  priponu(argv[1],filename,124);
+  anim=fopen(filename,"rb");
+  if (anim==NULL)
+     {
+     printf("Nemohu otevrit soubor %s.\n",filename);
+     return;
+     }
+  if (initmode32(NULL))
+     {
+     puts("Tento program vyzaduje grafickou kartu, ktera podporuje HICOLOR 32768 barev") ;
+     return;
+     }
+  delay(1000);
+  init_cinema();
+  if (direct) set_direct_mode();
+  do
+     {
+     play_cinema(anim);
+     fseek(anim,0,SEEK_SET);
+     }
+  while (!_bios_keybrd(_KEYBRD_READY));
+  done_cinema();
+  closemode();
+  fclose(anim);
+  }