1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#include "../gd/gd.h"
#include "../machine.h"
extern void sciprint __PARAMS ((char *fmt,...));
void C2F(deallocategifimg)(im)
gdImagePtr *im;
{
gdImageDestroy(*im);
}
void C2F(readgifimg)(string,imgptr,m,n,ncol)
char * string;
gdImagePtr *imgptr;
int *m,*n,*ncol;
{
FILE *fd;
gdImagePtr im;
fd=fopen(string,"r");
if (fd == 0)
{
sciprint("Can't open file %s\n",string);
return;
}
im = gdImageCreateFromGif(fd);
if (im == 0) {
*m = *n = -1;
return;
}
*m = im->sy;
*n = im->sx;
*ncol = im->colorsTotal;
*imgptr =im;
}
void C2F(readxbmimg)(string,imgptr,m,n,ncol)
char * string;
gdImagePtr *imgptr;
int *m,*n,*ncol;
{
FILE *fd;
gdImagePtr im;
fd=fopen(string,"r");
if (fd == 0)
{
sciprint("Can't open file %s\n",string);
return;
}
im = gdImageCreateFromXbm(fd);
if (im == 0) {
*m = *n = -1;
return;
}
*m = im->sy;
*n = im->sx;
*ncol = im->colorsTotal;
*imgptr =im;
}
void C2F(getgifpixels)(imgptr,pixels)
gdImagePtr *imgptr;
unsigned char *pixels;
{
int i,m,n,x,y;
gdImagePtr im;
im = *imgptr;
m = im->sx;
n = im->sy;
i =0;
for (x=0; (x<m); x++) {
for (y=0; (y<n); y++) {
pixels[i] = im->pixels[y][x];
i++;
}
}
}
void C2F(getgifcmap)(imgptr,cmap)
gdImagePtr *imgptr;
unsigned char *cmap;
{
int i,k, ncol;
gdImagePtr im;
im = *imgptr;
ncol = im->colorsTotal;
k = 0;
for (i=0; (i<ncol); i++) {
cmap[k] = im->red[i];
cmap[ncol+k] = im->green[i];
cmap[2*ncol+k] = im->blue[i];
k++;
}
}
|
