source: abuse/tags/pd/macabuse/imlib/glview.c @ 49

Last change on this file since 49 was 49, checked in by Sam Hocevar, 11 years ago
  • Imported original public domain release, for future reference.
  • Property svn:keywords set to Id
File size: 1.1 KB
RevLine 
[49]1#include "macs.hpp"
2#include "mdlread.hpp"
3#include "video.hpp"
4#include "image.hpp"
5#include "palette.hpp"
6#include "linked.hpp"
7#include <math.h>
8
9#include "glread.hpp"
10#include "gifread.hpp"
11#include "ppmread.hpp"
12
13
14main(int argc, char **argv)
15{
16  int i,j,k,t;
17  image **im,*pic;
18  palette *pal;
19  image_init();
20  set_mode(0x13,argc,argv);
21  screen->clear();
22  i=argc;
23  im=(image **)jmalloc(sizeof(image *)*80,"gl_view image");
24  i=1; t=1;
25  while (i<argc)
26  {
27    pal=NULL;
28    printf("reading %s",argv[i]);
29    im[t]=read_pic(argv[i],pal);
30    printf(" %d %d\n",im[t]->width(),im[t]->height());
31    if (pal)
32    { pal->load();
33        delete pal;
34    }
35    if (*(argv[i]+strlen(argv[i])-3)=='c')
36      t++;
37    i++;
38  }
39  for (j=0;j<100;j++)
40  {
41    for (k=1;k<t;k++)
42    {
43      im[k]->put_image(screen,0,0);
44        printf("put image\n");
45      update_dirty(screen);
46      screen->bar(0,0,im[k]->width(),im[k]->height(),0);
47    }
48    for (k=t-1;k>0;k--)
49    {
50      im[k]->put_image(screen,0,0);
51        printf("put image\n");
52      update_dirty(screen);
53      screen->bar(0,0,im[k]->width(),im[k]->height(),0);
54    }
55  }
56
57
58  close_graphics();
59  return 0;
60}
Note: See TracBrowser for help on using the repository browser.