fontlist structure added
[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   TAG* t;
40   RGBA rgb;
41   SHAPE* s;
42   MATRIX m;
43   SRECT r;
44   JPEGBITS* 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     {
79       pal[x].r = (x/16)*16;
80       pal[x].g = (x&15)*16;
81       pal[x].b = 0;
82       pal[x].a = x;
83       pal[x].r = (pal[x].r*pal[x].a)/255;
84       pal[x].g = (pal[x].g*pal[x].a)/255;
85       pal[x].b = (pal[x].b*pal[x].a)/255;
86     }
87
88     for (y=0;y<dy;y++)
89       for (x=0;x<dx;x++) {
90         U8 red = x;
91         U8 green = y;
92         U8 blue = x+y;
93         bitmap16[y*(bps16>>1)+x] = ((green/0x40)&0x03)|
94                                    ((red/4)&0x3f)<<2|
95                                    ((blue/8)&0x1f)<<8|
96                                    ((green/0x08)&0x07)<<13;
97       }
98
99     for (y=0;y<dy;y++)
100       for (x=0;x<dx;x++)
101         { bitmap32[y*(bps32>>2)+x].r = /*((x&0x10)==(y&0x10))?*/((x&4)==(y&4))?y:x;
102           bitmap32[y*(bps32>>2)+x].g = x;
103           bitmap32[y*(bps32>>2)+x].b = y;
104         }
105
106   } 
107   
108   // put texture into flash movie
109
110   memset(&swf,0x00,sizeof(SWF));
111
112   swf.fileVersion       = 4;
113   swf.frameRate         = 0x1800;
114   swf.movieSize.xmax    = 20*WIDTH;
115   swf.movieSize.ymax    = 20*HEIGHT;
116
117   swf.firstTag = swf_InsertTag(NULL,ST_SETBACKGROUNDCOLOR);
118   t = swf.firstTag;
119
120     rgb.r = 0x00;
121     rgb.b = 0x00;
122     rgb.g = 0x00;
123     swf_SetRGB(t,&rgb);
124
125   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS);
126
127     swf_SetU16(t,ID_BITS);
128     swf_SetLosslessBits(t,dx,dy,bitmap32,BMF_32BIT);
129     
130   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS2);
131
132     /* be careful with ST_DEFINEBITSLOSSLESS2, because
133        the Flash player produces great bugs if you use too many
134        alpha colors in your palette. The only sensible result that
135        can be archeived is setting one color to r=0,b=0,g=0,a=0 to
136        make transparent parts in sprites. That's the cause why alpha
137        handling is implemented in lossless routines of rfxswf.
138     */
139
140     swf_SetU16(t,ID_BITS+1);
141     swf_SetLosslessBitsIndexed(t,dx,dy,bitmap8,pal,256);
142     
143   t = swf_InsertTag(t,ST_DEFINEBITSLOSSLESS);
144
145     swf_SetU16(t,ID_BITS+2);
146     swf_SetLosslessBits(t,dx,dy,bitmap16,BMF_16BIT);
147
148   /* By the way: ST_DEFINELOSSLESS2 produces stange output on
149      16 and 32 bits image data, too.... it seems that the
150      ming developers deal with the same problem.
151   */
152
153   for (i=0;i<9;i++)
154   {
155     t = swf_InsertTag(t,ST_DEFINESHAPE);
156     
157     swf_ShapeNew(&s);
158     rgb.b = rgb.g = rgb.r = 0x00;
159     ls = swf_ShapeAddLineStyle(s,10,&rgb);  
160
161     swf_GetMatrix(NULL,&m);
162     m.sx = (6*WIDTH/dx)<<16;
163     m.sy = (6*HEIGHT/dy)<<16;
164
165     fs = swf_ShapeAddBitmapFillStyle(s,&m,ID_BITS+((i+(i/3))%3),0);
166     
167     swf_SetU16(t,ID_SHAPE+i);   // ID   
168
169     r.xmin = 0;
170     r.ymin = 0;
171     r.xmax = 6*WIDTH;
172     r.ymax = 6*HEIGHT;
173
174     swf_SetRect(t,&r);
175
176     swf_SetShapeStyles(t,s);
177     swf_ShapeCountBits(s,NULL,NULL);
178     swf_SetShapeBits(t,s);
179
180     swf_ShapeSetAll(t,s,0,0,ls,fs,0);
181
182     swf_ShapeSetLine(t,s,6*WIDTH,0);
183     swf_ShapeSetLine(t,s,0,6*HEIGHT);
184     swf_ShapeSetLine(t,s,-6*WIDTH,0);
185     swf_ShapeSetLine(t,s,0,-6*HEIGHT);
186     swf_ShapeSetEnd(t);
187
188     swf_GetMatrix(NULL,&m);
189     m.tx = (i%3) * (6*WIDTH+60);
190     m.ty = (i/3) * (6*HEIGHT+60);
191
192   t = swf_InsertTag(t,ST_PLACEOBJECT2);
193     swf_ObjectPlace(t,ID_SHAPE+i,1+i,&m,NULL,NULL);
194   }
195
196   t = swf_InsertTag(t,ST_SHOWFRAME);
197
198   t = swf_InsertTag(t,ST_END);
199
200 //  swf_WriteCGI(&swf);
201
202   f = open("zlibtest.swf",O_RDWR|O_CREAT|O_TRUNC|O_BINARY,0644);
203   if FAILED(swf_WriteSWF(f,&swf)) fprintf(stderr,"WriteSWF() failed.\n");
204   close(f);
205
206   swf_FreeTags(&swf);
207
208 #ifdef __NT__
209   system("start ..\\zlibtest.swf");
210 #endif
211   
212   free(pal);
213   free(bitmap8);
214   free(bitmap16);
215   free(bitmap32);  
216   return 0;
217 }