| 1 | UNIT Unit6_imgfuncs;
|
|---|
| 2 | INTERFACE
|
|---|
| 3 | USES Math, Dialogs, SysUtils, Unit3_data;
|
|---|
| 4 |
|
|---|
| 5 | TYPE
|
|---|
| 6 | TImgPackage=RECORD
|
|---|
| 7 | imgx,imgy:Word;
|
|---|
| 8 | imgdepth:Byte;
|
|---|
| 9 | storetype:Byte;
|
|---|
| 10 | datasize:LongWord;
|
|---|
| 11 | raw_addr:LongWord;
|
|---|
| 12 | imgdata:Tdata;
|
|---|
| 13 | END;
|
|---|
| 14 | FUNCTION ResizeImage(oldx,oldy:LongWord; imgdepth:Byte; data:Tdata):Tdata;
|
|---|
| 15 | FUNCTION RevertImage(imgx,imgy,imgdepth:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 16 | FUNCTION DecompressImage(imgx,imgy:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 17 | FUNCTION ImgdataToBmp(imgx,imgy,imgdepth,storetype:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 18 | FUNCTION BmpToImgdata(bmpdata:Tdata):TImgPackage;
|
|---|
| 19 | FUNCTION LoadTXMBconnected(fileid:LongWord):TImgPackage;
|
|---|
| 20 | FUNCTION LoadImgData(fileid:LongWord):TImgPackage;
|
|---|
| 21 | FUNCTION GetImageDataSize(imgx,imgy,imgdepth:Word; fading:Boolean):LongWord;
|
|---|
| 22 | FUNCTION CreateFadedImage(image:TImgPackage):Tdata;
|
|---|
| 23 |
|
|---|
| 24 | IMPLEMENTATION
|
|---|
| 25 | USES Unit2_functions;
|
|---|
| 26 |
|
|---|
| 27 |
|
|---|
| 28 | FUNCTION ResizeImage(oldx,oldy:LongWord; imgdepth:Byte; data:Tdata):Tdata;
|
|---|
| 29 | VAR
|
|---|
| 30 | i,j:LongWord;
|
|---|
| 31 | col,row,row_orig:LongWord;
|
|---|
| 32 | temparray:Tdata;
|
|---|
| 33 | BEGIN
|
|---|
| 34 | SetLength(temparray,(oldx DIV 2)*(oldy DIV 2)*(imgdepth DIV 8));
|
|---|
| 35 | row_orig:=0;
|
|---|
| 36 | row:=0;
|
|---|
| 37 | col:=0;
|
|---|
| 38 | FOR i:=0 TO (oldx*oldy)-1 DO BEGIN
|
|---|
| 39 | IF ((i MOD oldx)=0) AND (i>0) THEN BEGIN
|
|---|
| 40 | Inc(row_orig);
|
|---|
| 41 | IF (row_orig MOD 2)=0 THEN BEGIN
|
|---|
| 42 | Inc(row);
|
|---|
| 43 | col:=0;
|
|---|
| 44 | END;
|
|---|
| 45 | END;
|
|---|
| 46 | IF (row_orig MOD 2)=0 THEN BEGIN
|
|---|
| 47 | IF (i MOD 2)=0 THEN BEGIN
|
|---|
| 48 | FOR j:=0 TO (imgdepth DIV 8)-1 DO
|
|---|
| 49 | temparray[((row*(oldx DIV 2))+col)*(imgdepth DIV 8)+j]:=data[i*2+j];
|
|---|
| 50 | Inc(col);
|
|---|
| 51 | END;
|
|---|
| 52 | END;
|
|---|
| 53 | END;
|
|---|
| 54 | Result:=temparray;
|
|---|
| 55 | END;
|
|---|
| 56 |
|
|---|
| 57 |
|
|---|
| 58 | FUNCTION RevertImage(imgx,imgy,imgdepth:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 59 | VAR
|
|---|
| 60 | x,y,i:LongWord;
|
|---|
| 61 | BEGIN
|
|---|
| 62 | SetLength(Result,imgx*imgy*(imgdepth DIV 8));
|
|---|
| 63 | FOR y:=0 TO imgy-1 DO
|
|---|
| 64 | FOR x:=0 TO imgx-1 DO
|
|---|
| 65 | FOR i:=0 TO (imgdepth DIV 8)-1 DO
|
|---|
| 66 | Result[((imgx*(imgy-1-y)+x)*(imgdepth DIV 8))+i]:=
|
|---|
| 67 | imgdata[(imgx*y+x)*(imgdepth DIV 8)+i];
|
|---|
| 68 | END;
|
|---|
| 69 |
|
|---|
| 70 |
|
|---|
| 71 | FUNCTION DecompressImage(imgx,imgy:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 72 | TYPE
|
|---|
| 73 | Tcolor=RECORD
|
|---|
| 74 | RGBb:Byte;
|
|---|
| 75 | RGBg:Byte;
|
|---|
| 76 | RGBr:Byte;
|
|---|
| 77 | RGBa:Byte;
|
|---|
| 78 | END;
|
|---|
| 79 | VAR
|
|---|
| 80 | i,j,x,y:LongWord;
|
|---|
| 81 | color:Array[1..4] OF Tcolor;
|
|---|
| 82 | pixel:Array[1..16] OF Byte;
|
|---|
| 83 | BEGIN
|
|---|
| 84 | x:=0;
|
|---|
| 85 | y:=0;
|
|---|
| 86 | SetLength(Result,imgx*imgy*4);
|
|---|
| 87 | FOR i:=0 TO ((imgx*imgy) DIV 16)-1 DO BEGIN
|
|---|
| 88 | Color[1].RGBb:=Floor(((imgdata[(i*8)+0]+imgdata[(i*8)+1]*256) AND $001F) / $001F * 255);
|
|---|
| 89 | Color[1].RGBg:=Floor(((imgdata[(i*8)+0]+imgdata[(i*8)+1]*256) AND $07E0) / $07E0 * 255);
|
|---|
| 90 | Color[1].RGBr:=Floor(((imgdata[(i*8)+0]+imgdata[(i*8)+1]*256) AND $F800) / $F800 * 255);
|
|---|
| 91 | Color[1].RGBa:=255;
|
|---|
| 92 | Color[2].RGBb:=Floor(((imgdata[(i*8)+2]+imgdata[(i*8)+3]*256) AND $001F) / $001F * 255);
|
|---|
| 93 | Color[2].RGBg:=Floor(((imgdata[(i*8)+2]+imgdata[(i*8)+3]*256) AND $07E0) / $07E0 * 255);
|
|---|
| 94 | Color[2].RGBr:=Floor(((imgdata[(i*8)+2]+imgdata[(i*8)+3]*256) AND $F800) / $F800 * 255);
|
|---|
| 95 | Color[2].RGBa:=255;
|
|---|
| 96 | Color[3].RGBb:=Floor( Color[1].RGBb/3*2 + Color[2].RGBb/3 );
|
|---|
| 97 | Color[3].RGBg:=Floor( Color[1].RGBg/3*2 + Color[2].RGBg/3 );
|
|---|
| 98 | Color[3].RGBr:=Floor( Color[1].RGBr/3*2 + Color[2].RGBr/3 );
|
|---|
| 99 | Color[3].RGBa:=255;
|
|---|
| 100 | Color[4].RGBb:=Floor( Color[1].RGBb/3 + Color[2].RGBb/3*2 );
|
|---|
| 101 | Color[4].RGBg:=Floor( Color[1].RGBg/3 + Color[2].RGBg/3*2 );
|
|---|
| 102 | Color[4].RGBr:=Floor( Color[1].RGBr/3 + Color[2].RGBr/3*2 );
|
|---|
| 103 | Color[4].RGBa:=255;
|
|---|
| 104 | Pixel[1]:=Floor( (imgdata[(i*8)+4] AND $C0) / $40 + 1 );
|
|---|
| 105 | Pixel[2]:=Floor( (imgdata[(i*8)+4] AND $30) / $10 + 1 );
|
|---|
| 106 | Pixel[3]:=Floor( (imgdata[(i*8)+4] AND $0C) / $04 + 1 );
|
|---|
| 107 | Pixel[4]:=Floor( (imgdata[(i*8)+4] AND $03) + 1 );
|
|---|
| 108 | Pixel[5]:=Floor( (imgdata[(i*8)+5] AND $C0) / $40 + 1 );
|
|---|
| 109 | Pixel[6]:=Floor( (imgdata[(i*8)+5] AND $30) / $10 + 1 );
|
|---|
| 110 | Pixel[7]:=Floor( (imgdata[(i*8)+5] AND $0C) / $04 + 1 );
|
|---|
| 111 | Pixel[8]:=Floor( (imgdata[(i*8)+5] AND $03) + 1 );
|
|---|
| 112 | Pixel[9]:=Floor( (imgdata[(i*8)+6] AND $C0) / $40 + 1 );
|
|---|
| 113 | Pixel[10]:=Floor( (imgdata[(i*8)+6] AND $30) / $10 + 1 );
|
|---|
| 114 | Pixel[11]:=Floor( (imgdata[(i*8)+6] AND $0C) / $04 + 1 );
|
|---|
| 115 | Pixel[12]:=Floor( (imgdata[(i*8)+6] AND $03) + 1 );
|
|---|
| 116 | Pixel[13]:=Floor( (imgdata[(i*8)+7] AND $C0) / $40 + 1 );
|
|---|
| 117 | Pixel[14]:=Floor( (imgdata[(i*8)+7] AND $30) / $10 + 1 );
|
|---|
| 118 | Pixel[15]:=Floor( (imgdata[(i*8)+7] AND $0C) / $04 + 1 );
|
|---|
| 119 | Pixel[16]:=Floor( (imgdata[(i*8)+7] AND $03) + 1 );
|
|---|
| 120 | FOR j:=0 TO 3 DO BEGIN
|
|---|
| 121 | Result[((y+3)*imgx+x+j)*3+0]:=Color[Pixel[16-j]].RGBb;
|
|---|
| 122 | Result[((y+3)*imgx+x+j)*3+1]:=Color[Pixel[16-j]].RGBg;
|
|---|
| 123 | Result[((y+3)*imgx+x+j)*3+2]:=Color[Pixel[16-j]].RGBr;
|
|---|
| 124 | END;
|
|---|
| 125 | FOR j:=0 TO 3 DO BEGIN
|
|---|
| 126 | Result[((y+2)*imgx+x+j)*3+0]:=Color[Pixel[12-j]].RGBb;
|
|---|
| 127 | Result[((y+2)*imgx+x+j)*3+1]:=Color[Pixel[12-j]].RGBg;
|
|---|
| 128 | Result[((y+2)*imgx+x+j)*3+2]:=Color[Pixel[12-j]].RGBr;
|
|---|
| 129 | END;
|
|---|
| 130 | FOR j:=0 TO 3 DO BEGIN
|
|---|
| 131 | Result[((y+1)*imgx+x+j)*3+0]:=Color[Pixel[8-j]].RGBb;
|
|---|
| 132 | Result[((y+1)*imgx+x+j)*3+1]:=Color[Pixel[8-j]].RGBg;
|
|---|
| 133 | Result[((y+1)*imgx+x+j)*3+2]:=Color[Pixel[8-j]].RGBr;
|
|---|
| 134 | END;
|
|---|
| 135 | FOR j:=0 TO 3 DO BEGIN
|
|---|
| 136 | Result[((y+0)*imgx+x+j)*3+0]:=Color[Pixel[4-j]].RGBb;
|
|---|
| 137 | Result[((y+0)*imgx+x+j)*3+1]:=Color[Pixel[4-j]].RGBg;
|
|---|
| 138 | Result[((y+0)*imgx+x+j)*3+2]:=Color[Pixel[4-j]].RGBr;
|
|---|
| 139 | END;
|
|---|
| 140 | x:=x+4;
|
|---|
| 141 | IF x=imgx THEN BEGIN
|
|---|
| 142 | y:=y+4;
|
|---|
| 143 | x:=0;
|
|---|
| 144 | END;
|
|---|
| 145 | END;
|
|---|
| 146 | END;
|
|---|
| 147 |
|
|---|
| 148 |
|
|---|
| 149 | FUNCTION ImgdataToBmp(imgx,imgy,imgdepth,storetype:LongWord; imgdata:Tdata):Tdata;
|
|---|
| 150 | CONST BMPheader:Array[0..53] OF Byte=
|
|---|
| 151 | ($42,$4D,0,0,0,0,0,0,0,0,54,0,0,0,
|
|---|
| 152 | 40,0,0,0,0,0,0,0,0,0,0,0,1,0,$18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
|
|---|
| 153 | VAR
|
|---|
| 154 | i,x,y:LongWord;
|
|---|
| 155 | BEGIN
|
|---|
| 156 | CASE storetype OF
|
|---|
| 157 | 0: BEGIN
|
|---|
| 158 | SetLength(Result,imgx*imgy*3);
|
|---|
| 159 | FOR y:=0 TO imgy-1 DO BEGIN
|
|---|
| 160 | FOR x:=0 TO imgx-1 DO BEGIN
|
|---|
| 161 | Result[((imgx*y+x)*3)+0]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $000F ) / $000F * 255);
|
|---|
| 162 | Result[((imgx*y+x)*3)+1]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $00F0 ) / $00F0 * 255);
|
|---|
| 163 | Result[((imgx*y+x)*3)+2]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $0F00 ) / $0F00 * 255);
|
|---|
| 164 | END;
|
|---|
| 165 | END;
|
|---|
| 166 | END;
|
|---|
| 167 | 1,2,8: BEGIN
|
|---|
| 168 | SetLength(Result,imgx*imgy*3);
|
|---|
| 169 | FOR y:=0 TO imgy-1 DO BEGIN
|
|---|
| 170 | FOR x:=0 TO imgx-1 DO BEGIN
|
|---|
| 171 | Result[((imgx*y+x)*3)+0]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $001F ) / $001F * 255);
|
|---|
| 172 | Result[((imgx*y+x)*3)+1]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $03E0 ) / $03E0 * 255);
|
|---|
| 173 | Result[((imgx*y+x)*3)+2]:=Floor( ( (imgdata[(imgx*y+x)*2]+imgdata[(imgx*y+x)*2+1]*256) AND $7C00 ) / $7C00 * 255);
|
|---|
| 174 | END;
|
|---|
| 175 | END;
|
|---|
| 176 | END;
|
|---|
| 177 | 9: BEGIN
|
|---|
| 178 | Result:=DecompressImage(imgx,imgy,imgdata);
|
|---|
| 179 | END;
|
|---|
| 180 | END;
|
|---|
| 181 | Result:=RevertImage(imgx,imgy,24,Result);
|
|---|
| 182 | SetLength(Result,imgx*imgy*3+54);
|
|---|
| 183 | FOR i:=High(Result)-54 DOWNTO 0 DO Result[i+54]:=Result[i];
|
|---|
| 184 |
|
|---|
| 185 | FOR i:=0 TO High(BMPheader) DO Result[i]:=BMPheader[i];
|
|---|
| 186 | Result[2]:=((imgx*imgy*3+54) AND $000000FF);
|
|---|
| 187 | Result[3]:=((imgx*imgy*3+54) AND $0000FF00) DIV $100;
|
|---|
| 188 | Result[4]:=((imgx*imgy*3+54) AND $00FF0000) DIV $10000;
|
|---|
| 189 | Result[5]:=((imgx*imgy*3+54) AND $FF000000) DIV $1000000;
|
|---|
| 190 | Result[18]:=(imgx AND $000000FF) DIV $1;
|
|---|
| 191 | Result[19]:=(imgx AND $0000FF00) DIV $100;
|
|---|
| 192 | Result[20]:=(imgx AND $00FF0000) DIV $10000;
|
|---|
| 193 | Result[21]:=(imgx AND $FF000000) DIV $1000000;
|
|---|
| 194 | Result[22]:=(imgy AND $000000FF) DIV $1;
|
|---|
| 195 | Result[23]:=(imgy AND $0000FF00) DIV $100;
|
|---|
| 196 | Result[24]:=(imgy AND $00FF0000) DIV $10000;
|
|---|
| 197 | Result[25]:=(imgy AND $FF000000) DIV $1000000;
|
|---|
| 198 | Result[34]:=((imgx*imgy*3) AND $000000FF) DIV $1;
|
|---|
| 199 | Result[35]:=((imgx*imgy*3) AND $0000FF00) DIV $100;
|
|---|
| 200 | Result[36]:=((imgx*imgy*3) AND $00FF0000) DIV $10000;
|
|---|
| 201 | Result[37]:=((imgx*imgy*3) AND $FF000000) DIV $1000000;
|
|---|
| 202 | END;
|
|---|
| 203 |
|
|---|
| 204 | FUNCTION BmpToImgdata(bmpdata:Tdata):TImgPackage;
|
|---|
| 205 | VAR
|
|---|
| 206 | x,y:LongWord;
|
|---|
| 207 | r24,g24,b24:Word;
|
|---|
| 208 | r16,g16,b16:Word;
|
|---|
| 209 | gesamt:Word;
|
|---|
| 210 | BEGIN
|
|---|
| 211 | Result.imgdepth:=0;
|
|---|
| 212 | IF NOT((bmpdata[00]=$42) AND (bmpdata[01]=$4D)) THEN BEGIN
|
|---|
| 213 | ShowMessage('Not a standard 24bit bitmap');
|
|---|
| 214 | Exit;
|
|---|
| 215 | END;
|
|---|
| 216 | IF NOT(bmpdata[10]=54) THEN BEGIN
|
|---|
| 217 | ShowMessage('Imagedata has to start at 0x54');
|
|---|
| 218 | Exit;
|
|---|
| 219 | END;
|
|---|
| 220 | IF NOT(bmpdata[14]=40) THEN BEGIN
|
|---|
| 221 | ShowMessage('Second bitmap header has to have 40 bytes');
|
|---|
| 222 | Exit;
|
|---|
| 223 | END;
|
|---|
| 224 | IF NOT(bmpdata[28]=24) THEN BEGIN
|
|---|
| 225 | ShowMessage('Bitmap has to have 24bits');
|
|---|
| 226 | Exit;
|
|---|
| 227 | END;
|
|---|
| 228 | IF NOT(bmpdata[30]=0) THEN BEGIN
|
|---|
| 229 | ShowMessage('Bitmap has to be uncompressed');
|
|---|
| 230 | Exit;
|
|---|
| 231 | END;
|
|---|
| 232 | Result.imgx:=bmpdata[18]+bmpdata[19]*256+bmpdata[20]*256*256+bmpdata[21]*256*256*256;
|
|---|
| 233 | Result.imgy:=bmpdata[22]+bmpdata[23]*256+bmpdata[24]*256*256+bmpdata[25]*256*256*256;
|
|---|
| 234 | Result.imgdepth:=16;
|
|---|
| 235 | Result.storetype:=1;
|
|---|
| 236 |
|
|---|
| 237 | SetLength(Result.imgdata,Result.imgx*Result.imgy*2);
|
|---|
| 238 | FOR y:=0 TO Result.imgy-1 DO BEGIN
|
|---|
| 239 | FOR x:=0 TO Result.imgx-1 DO BEGIN
|
|---|
| 240 | r24:=bmpdata[54+(Result.imgx*y+x)*3+0];
|
|---|
| 241 | g24:=bmpdata[54+(Result.imgx*y+x)*3+1];
|
|---|
| 242 | b24:=bmpdata[54+(Result.imgx*y+x)*3+2];
|
|---|
| 243 | r16:=(Ceil(r24*$001F/255)) AND $001F;
|
|---|
| 244 | g16:=(Ceil(g24*$03E0/255)) AND $03E0;
|
|---|
| 245 | b16:=(Ceil(b24*$7C00/255)) AND $7C00;
|
|---|
| 246 | gesamt:=r16+g16+b16;
|
|---|
| 247 | Result.imgdata[((Result.imgx*y+x)*2)+0]:=gesamt AND $00FF;
|
|---|
| 248 | Result.imgdata[((Result.imgx*y+x)*2)+1]:=(gesamt AND $FF00) DIV 256;
|
|---|
| 249 | END;
|
|---|
| 250 | END;
|
|---|
| 251 |
|
|---|
| 252 | Result.imgdata:=RevertImage(Result.imgx,Result.imgy,Result.imgdepth,Result.imgdata);
|
|---|
| 253 | END;
|
|---|
| 254 |
|
|---|
| 255 | FUNCTION LoadTXMBconnected(fileid:LongWord):TImgPackage;
|
|---|
| 256 | VAR
|
|---|
| 257 | i,x,y,x2,y2,pixelid,imgid:LongWord;
|
|---|
| 258 | rows,cols:Word;
|
|---|
| 259 | linkcount:LongWord;
|
|---|
| 260 | link:LongWord;
|
|---|
| 261 | single_image:TImgPackage;
|
|---|
| 262 | images_decoded:Array OF TImgPackage;
|
|---|
| 263 | x_start,y_start:LongWord;
|
|---|
| 264 | BEGIN
|
|---|
| 265 | LoadDatFilePart(fileid,$10,SizeOf(Result.imgx),@Result.imgx);
|
|---|
| 266 | LoadDatFilePart(fileid,$12,SizeOf(Result.imgy),@Result.imgy);
|
|---|
| 267 | LoadDatFilePart(fileid,$18,SizeOf(cols),@cols);
|
|---|
| 268 | LoadDatFilePart(fileid,$1A,SizeOf(rows),@rows);
|
|---|
| 269 | LoadDatFilePart(fileid,$1C,SizeOf(linkcount),@linkcount);
|
|---|
| 270 | SetLength(images_decoded,linkcount);
|
|---|
| 271 | FOR i:=0 TO linkcount-1 DO BEGIN
|
|---|
| 272 | LoadDatFilePart(fileid,$20+i*4,SizeOf(link),@link);
|
|---|
| 273 | link:=link DIV 256;
|
|---|
| 274 | single_image:=LoadImgData(link);
|
|---|
| 275 | images_decoded[i]:=BmpToImgdata(ImgdataToBmp(single_image.imgx,single_image.imgy,single_image.imgdepth,single_image.storetype,single_image.imgdata));
|
|---|
| 276 | END;
|
|---|
| 277 | SetLength(Result.imgdata,Result.imgx*Result.imgy*2);
|
|---|
| 278 | FOR y:=0 TO rows-1 DO BEGIN
|
|---|
| 279 | FOR x:=0 TO cols-1 DO BEGIN
|
|---|
| 280 | imgid:=y*cols+x;
|
|---|
| 281 | x_start:=0;
|
|---|
| 282 | y_start:=0;
|
|---|
| 283 | FOR i:=0 TO x DO IF i<x THEN x_start:=x_start+images_decoded[i].imgx;
|
|---|
| 284 | FOR i:=0 TO y DO IF i<y THEN y_start:=y_start+images_decoded[i].imgy;
|
|---|
| 285 | FOR y2:=0 TO images_decoded[imgid].imgy-1 DO BEGIN
|
|---|
| 286 | FOR x2:=0 TO images_decoded[imgid].imgx-1 DO BEGIN
|
|---|
| 287 | IF ( (x_start+x2)<Result.imgx ) AND ( (y_start+y2)<Result.imgy ) THEN BEGIN
|
|---|
| 288 | pixelid:=y_start*Result.imgx+x_start+y2*Result.imgx+x2;
|
|---|
| 289 | Result.imgdata[pixelid*2+0]:=images_decoded[imgid].imgdata[(y2*images_decoded[imgid].imgx+x2)*2+0];
|
|---|
| 290 | Result.imgdata[pixelid*2+1]:=images_decoded[imgid].imgdata[(y2*images_decoded[imgid].imgx+x2)*2+1];
|
|---|
| 291 | END;
|
|---|
| 292 | END;
|
|---|
| 293 | END;
|
|---|
| 294 | END;
|
|---|
| 295 | END;
|
|---|
| 296 | Result.imgdepth:=16;
|
|---|
| 297 | Result.storetype:=1;
|
|---|
| 298 | END;
|
|---|
| 299 |
|
|---|
| 300 | FUNCTION LoadImgData(fileid:LongWord):TImgPackage;
|
|---|
| 301 | BEGIN
|
|---|
| 302 | LoadDatFilePart(fileid,$9C,SizeOf(Result.raw_addr),@Result.raw_addr);
|
|---|
| 303 | LoadDatFilePart(fileid,$8C,SizeOf(Result.imgx),@Result.imgx);
|
|---|
| 304 | LoadDatFilePart(fileid,$8E,SizeOf(Result.imgy),@Result.imgy);
|
|---|
| 305 | LoadDatFilePart(fileid,$90,SizeOf(Result.storetype),@Result.storetype);
|
|---|
| 306 |
|
|---|
| 307 | CASE Result.storetype OF
|
|---|
| 308 | 0,1,2: BEGIN
|
|---|
| 309 | Result.datasize:=Result.imgx*Result.imgy*2;
|
|---|
| 310 | Result.imgdepth:=16;
|
|---|
| 311 | END;
|
|---|
| 312 | 8: BEGIN
|
|---|
| 313 | Result.datasize:=Result.imgx*Result.imgy*4;
|
|---|
| 314 | Result.imgdepth:=32;
|
|---|
| 315 | END;
|
|---|
| 316 | 9: BEGIN
|
|---|
| 317 | Result.datasize:=Result.imgx*Result.imgy DIV 2;
|
|---|
| 318 | Result.imgdepth:=16;
|
|---|
| 319 | END;
|
|---|
| 320 | ELSE
|
|---|
| 321 | Exit;
|
|---|
| 322 | END;
|
|---|
| 323 | SetLength(Result.imgdata,Result.datasize);
|
|---|
| 324 |
|
|---|
| 325 | LoadRawFilePart(Result.raw_addr,Result.datasize,@Result.imgdata[0]);
|
|---|
| 326 | END;
|
|---|
| 327 |
|
|---|
| 328 | FUNCTION GetImageDataSize(imgx,imgy,imgdepth:Word; fading:Boolean):LongWord;
|
|---|
| 329 | VAR
|
|---|
| 330 | size:LongWord;
|
|---|
| 331 | x,y:Word;
|
|---|
| 332 | BEGIN
|
|---|
| 333 | x:=imgx;
|
|---|
| 334 | y:=imgy;
|
|---|
| 335 | size:=x*y*imgdepth DIV 8;
|
|---|
| 336 | IF fading THEN BEGIN
|
|---|
| 337 | REPEAT
|
|---|
| 338 | x:=x DIV 2;
|
|---|
| 339 | y:=y DIV 2;
|
|---|
| 340 | size:=size+x*y*imgdepth DIV 8;
|
|---|
| 341 | UNTIL (x=1) OR (y=1);
|
|---|
| 342 | END;
|
|---|
| 343 | Result:=size;
|
|---|
| 344 | END;
|
|---|
| 345 |
|
|---|
| 346 | FUNCTION CreateFadedImage(image:TImgPackage):Tdata;
|
|---|
| 347 | VAR
|
|---|
| 348 | i:LongWord;
|
|---|
| 349 | x,y:Word;
|
|---|
| 350 | imgdata:Tdata;
|
|---|
| 351 | fadelvldata:Tdata;
|
|---|
| 352 | BEGIN
|
|---|
| 353 | x:=image.imgx;
|
|---|
| 354 | y:=image.imgy;
|
|---|
| 355 | SetLength(imgdata,x*y*2);
|
|---|
| 356 | SetLength(fadelvldata,x*y*2);
|
|---|
| 357 | FOR i:=0 TO Length(imgdata)-1 DO BEGIN
|
|---|
| 358 | imgdata[i]:=image.imgdata[i];
|
|---|
| 359 | fadelvldata[i]:=image.imgdata[i];
|
|---|
| 360 | END;
|
|---|
| 361 | REPEAT
|
|---|
| 362 | fadelvldata:=ResizeImage(x,y,16,fadelvldata);
|
|---|
| 363 | x:=x DIV 2;
|
|---|
| 364 | y:=y DIV 2;
|
|---|
| 365 | SetLength(imgdata,Length(imgdata)+x*y*2);
|
|---|
| 366 | FOR i:=0 TO Length(fadelvldata)-1 DO imgdata[Length(imgdata)-x*y*2+i]:=fadelvldata[i];
|
|---|
| 367 | UNTIL (x=1) OR (y=1);
|
|---|
| 368 | SetLength(Result, Length(imgdata));
|
|---|
| 369 | FOR i:=0 TO Length(imgdata)-1 DO Result[i]:=imgdata[i];
|
|---|
| 370 | END;
|
|---|
| 371 |
|
|---|
| 372 | END.
|
|---|
