anim.c moved to repo. Added license notification

diff --git a/anim.c b/anim.c
new file mode 100755 (executable)
index 0000000..39bb63c
--- /dev/null
+++ b/anim.c
@@ -0,0 +1,106 @@
+/*
+   Copyright (C) Prikol Software 1996-1997
+   Copyright (C) Aleksey Volynskov 1996-1997
+   Copyright (C) <ARembo@gmail.com> 2011
+
+   This file is part of the Doom2D:Rembo project.
+
+   Doom2D:Rembo is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License version 2 as
+   published by the Free Software Foundation.
+
+   Doom2D:Rembo is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, see <http://www.gnu.org/licenses/> or
+   write to the Free Software Foundation, Inc.,
+   51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+*/
+
+#include "glob.h"
+#include <stdlib.h>
+#include <string.h>
+#include <vga.h>
+//#include <keyb.h>
+#include "error.h"
+
+enum{AB_END,AB_SCREEN,AB_UPDATE};
+
+typedef struct{
+  short t,st;
+  unsigned len;
+}anm_blk_t;
+
+#define SQ 4
+
+static byte cnum[256];
+
+static void init_cpack(void) {
+  int i;
+
+  for(i=0;i<256;++i) cnum[i]=i;
+}
+
+static byte cpack(byte n) {
+  byte c;
+
+  c=cnum[n];
+  if(n) memmove(cnum+1,cnum,n);
+  cnum[0]=c;
+  return c;
+}
+
+static byte *unpack(byte *d,byte *s,int l) {
+  for(;l>0;--l,++d,++s) {
+    if(*s==0) {memset(d,cpack(0),(dword)(*(++s))+1);d+=(dword)*s;l-=(dword)*s;}
+    else *d=cpack(*s);
+  }
+  return s;
+}
+
+static byte *line(int y,byte *u) {
+  int x,n,sy;
+
+  for(x=0;x<scrw/SQ;)
+    if(*u&0x80) {
+      n=(*u&0x7F)+1;++u;
+      for(sy=0;sy<SQ*320;sy+=320) {u=unpack(scra+y+sy+x*SQ,u,n*SQ);}
+      x+=n;
+    }else{x+=*u+1;++u;}
+  return u;
+}
+
+static anm_blk_t *anm;
+
+void ANM_start(void *p) {
+  init_cpack();
+  anm=p;
+}
+
+int ANM_play(void) {
+  byte *u;
+  int x,y;
+
+//  while(!keys[0x39]);
+//  while(keys[0x39]);
+    if(anm->t==AB_END) return 0;
+    switch(anm->t) {
+      case AB_SCREEN:
+        unpack(scra,(byte*)(anm+1),64000);
+        break;
+      case AB_UPDATE:
+        for(u=(byte*)(anm+1),y=0;y<200/SQ;)
+          if(*u&0x80) {
+            for(x=(*u&0x7F)+1,++u;x;--x,++y)
+              u=line(y*320*SQ,u);
+          }else{y+=*u+1;++u;}
+        break;
+      default: ERR_fatal("\8f«®å®© ANM-ä ©«");
+    }
+    anm=((anm_blk_t*)((byte*)anm+anm->len))+1;
+  if(anm->t==AB_END) return 0;
+  return 1;
+}