fixed segmentation fault in T1_ReencodeFont().
[swftools.git] / lib / example / zlibtest.c
1 /* zlibtest.c
2
3    Little example for rfxswf's lossless bitmap functions.
4    This program creates a swf with three zlib compressed
5    images: 8 bit indexed, 16 and 32 bit
6
7    Part of the swftools package.
8
9    Copyright (c) 2001 Rainer Böhme <rfxswf@reflex-studio.de>
10  
11    This program is free software; you can redistribute it and/or modify
12    it under the terms of the GNU General Public License as published by
13    the Free Software Foundation; either version 2 of the License, or
14    (at your option) any later version.
15
16    This program is distributed in the hope that it will be useful,
17    but WITHOUT ANY WARRANTY; without even the implied warranty of
18    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19    GNU General Public License for more details.
20
21    You should have received a copy of the GNU General Public License
22    along with this program; if not, write to the Free Software
23    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
24
25 #include <stdio.h>
26 #include <fcntl.h>
27 #include <math.h>
28 #include "../rfxswf.h"
29
30 #define WIDTH           256
31 #define HEIGHT          256
32
33 #define ID_BITS         1
34 #define ID_SHAPE        16
35
36
37 int main ( int argc, char ** argv)
38 { SWF swf;
39   LPTAG t;
40   RGBA rgb;
41   LPSHAPE s;
42   MATRIX m;
43   SRECT r;
44   LPJPEGBITS jpeg;
45   int i,f;
46   
47   int ls; // line style
48   int fs; // fill style
49
50   int dx = 256; // bitmap size
51   int dy = 256;
52   int bps8, bps16, bps32;    // bytes per scanline
53
54   U8 * bitmap8;
55   U16 * bitmap16;
56   RGBA * bitmap32;
57   RGBA * pal;
58
59   // create test texture
60
61   bps8  = BYTES_PER_SCANLINE(dx*sizeof(U8));
62   bps16 = BYTES_PER_SCANLINE(dx*sizeof(U16));
63   bps32 = BYTES_PER_SCANLINE(dx*sizeof(U32));
64   
65   pal = malloc(256*sizeof(RGBA));
66
67   bitmap8 = malloc(bps8*dy);
68   bitmap16 = malloc(bps16*dy);
69   bitmap32 = malloc(bps32*dy);
70   
71   if ((bitmap8) && (pal) && (bitmap16))
72   { int x,y;
73     for (y=0;y<dy;y++)
74       for (x=0;x<dx;x++)
75         bitmap8[y*bps8+x] = (y/16)*16+(x/16);
76
77     for (x=0;x<256;x++)
78     { pal[x].r = (x&0xf)*16;
79       pal[x].g = (x*2)&0xff;
80       pal[x].b = x&0xf0;
81       pal[x].a = (x==0xff)?0:0xff;
82     }
83
84     for (y=0;y<dy;y++)
85       for (x=0;x<dx;x++)
86         bitmap16[y*(bps16>>1)+x] = ((x&0xf0)==(y&0xf0))?0xffff:(x&0x0f)<(y&0xf)?BM16_RED|BM16_GREEN:BM16_BLUE;
87
88     for (y=0;y<dy;y++)
89       for (x=0;x<dx;x++)
90         { bitmap32[y*(bps32>>2)+x].r = /*((x&0x10)==(y&0x10))?*/((x&4)==(y&4))?y:x;
91           bitmap32[y*(bps32>>2)+x].g = x;
92           bitmap32[y*(bps32>>2)+x].b = y;
93         }
94
95   } 
96   
97   // put texture into flash movie
98
99   memset(&swf,0x00,sizeof(SWF));
100
101   swf.fileVersion       = 4;
102   swf.frameRate         = 0x1800;
103   swf.movieSize.xmax    = 20*WIDTH;
104   swf.movieSize.ymax    = 20*HEIGHT;
105
106   swf.firstTag = swf_InsertTag(NULL,ST_SETBACKGROUNDCOLOR);
107   t = swf.firstTag;
108
109     rgb.r = 0xff;
110     rgb.b = 0xff;
111     rgb.g = 0xff;
112     swf_SetRGB(t,&rgb);
113
114   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS);
115
116     swf_SetU16(t,ID_BITS);
117     swf_SetLosslessBits(t,dx,dy,bitmap32,BMF_32BIT);
118     
119   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS2);
120
121     /* be careful with ST_DEFINEBITSLOSSLESS2, because
122        the Flash player produces great bugs if you use too many
123        alpha colors in your palette. The only sensible result that
124        can be archeived is setting one color to r=0,b=0,g=0,a=0 to
125        make transparent parts in sprites. That's the cause why alpha
126        handling is implemented in lossless routines of rfxswf.
127     */
128
129     swf_SetU16(t,ID_BITS+1);
130     swf_SetLosslessBitsIndexed(t,dx,dy,bitmap8,pal,256);
131     
132   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS);
133
134     swf_SetU16(t,ID_BITS+2);
135     swf_SetLosslessBits(t,dx,dy,bitmap16,BMF_16BIT);
136
137   /* By the way: ST_DEFINELOSSLESS2 produces stange output on
138      16 and 32 bits image data, too.... it seems that the
139      ming developers deal with the same problem.
140   */
141
142   for (i=0;i<9;i++)
143   {
144     t = swf_InsertTag(t,ST_DEFINESHAPE);
145     
146     swf_ShapeNew(&s);
147     rgb.b = rgb.g = rgb.r = 0x00;
148     ls = swf_ShapeAddLineStyle(s,10,&rgb);  
149
150     swf_GetMatrix(NULL,&m);
151     m.sx = (6*WIDTH/dx)<<16;
152     m.sy = (6*HEIGHT/dy)<<16;
153
154     fs = swf_ShapeAddBitmapFillStyle(s,&m,ID_BITS+((i+(i/3))%3),0);
155     
156     swf_SetU16(t,ID_SHAPE+i);   // ID   
157
158     r.xmin = 0;
159     r.ymin = 0;
160     r.xmax = 6*WIDTH;
161     r.ymax = 6*HEIGHT;
162
163     swf_SetRect(t,&r);
164
165     swf_SetShapeStyles(t,s);
166     swf_ShapeCountBits(s,NULL,NULL);
167     swf_SetShapeBits(t,s);
168
169     swf_ShapeSetAll(t,s,0,0,ls,fs,0);
170
171     swf_ShapeSetLine(t,s,6*WIDTH,0);
172     swf_ShapeSetLine(t,s,0,6*HEIGHT);
173     swf_ShapeSetLine(t,s,-6*WIDTH,0);
174     swf_ShapeSetLine(t,s,0,-6*HEIGHT);
175     swf_ShapeSetEnd(t);
176
177     swf_GetMatrix(NULL,&m);
178     m.tx = (i%3) * (6*WIDTH+60);
179     m.ty = (i/3) * (6*HEIGHT+60);
180
181   t = swf_InsertTag(t,ST_PLACEOBJECT2);
182     swf_ObjectPlace(t,ID_SHAPE+i,1+i,&m,NULL,NULL);
183   }
184
185   t = swf_InsertTag(t,ST_SHOWFRAME);
186
187   t = swf_InsertTag(t,ST_END);
188
189 //  swf_WriteCGI(&swf);
190
191   f = open("zlibtest.swf",O_RDWR|O_CREAT|O_TRUNC,0644);
192   if FAILED(swf_WriteSWF(f,&swf)) fprintf(stderr,"WriteSWF() failed.\n");
193   close(f);
194
195   swf_FreeTags(&swf);
196
197 #ifdef __NT__
198   system("start ..\\zlibtest.swf");
199 #endif
200   
201   free(pal);
202   free(bitmap8);
203   free(bitmap16);
204   free(bitmap32);  
205   return 0;
206 }