2 Copyright © 1995-2007, The AROS Development Team. All rights reserved.
5 Desc: Graphics function BitMapScale()
8 #include <aros/debug.h>
9 #include <graphics/scale.h>
10 #include <proto/exec.h>
11 #include <proto/oop.h>
12 #include "graphics_intern.h"
13 #include "gfxfuncsupport.h"
16 VOID
HIDD_BM_BitMapScale(OOP_Object
*, OOP_Object
*, OOP_Object
*, struct BitScaleArgs
*, OOP_Object
*);
18 /*****************************************************************************
21 #include <proto/graphics.h>
23 AROS_LH1(void, BitMapScale
,
26 AROS_LHA(struct BitScaleArgs
*, bitScaleArgs
, A0
),
29 struct GfxBase
*, GfxBase
, 113, Graphics
)
32 Scale a source bit map to a destination bit map other than
36 Pass a BitScaleArgs structure filled with the following arguments
38 bsa_SrcX, bsa_SrcY - upper left coordinate in source bitmap
39 bsa_SrcWidth, bsa_SrcHeight - Width and Height or source bitmap
40 bsa_DestX, bsa_DestY - upper left coordinate in destination
42 bsa_DestWidth, bsa_DestHeight - this function will set these
43 values. Use the bsa_???Factor for scaling
44 bsa_XSrcFactor:bsa_XDestFactor - Set these to get approximately
45 the same ratio as bsa_XSrcWidth:bsa_XDestWidth, but
46 usually not exactly the same number.
47 bsa_YSrcFactor:bsa_YDestFactor - Set these to get approximately
48 the same ratio as bsa_YSrcWidth:YDestWidth, but
49 usually not exactly the same number.
50 bsa_SrcBitMap - pointer to source bitmap to be scaled
51 bsa_DestBitMap - pointer to destination bitmap which will
52 will hold the scaled bitmap. Make sure it's
54 bsa_Flags - reserved for future use. Set it to zero!
55 bsa_XDDA, bsa_YDDA - for future use.
56 bsa_Reserved1, bsa_Reserved2 - for future use.
59 bsa_DestWidth and bsa_DestHeight will be set by this function
62 - Overlapping source and destination bitmaps are not supported
63 - Make sure that you provide enough memory for the destination
64 bitmap to hold the result
65 - In the destination bitmap only the area where the scaled
66 source bitmap is put into is changed. A frame of the old
74 ScalerDiv(), graphics/scale.h
80 *****************************************************************************/
84 if (bitScaleArgs
->bsa_SrcBitMap
->pad
!= 0 ||
85 bitScaleArgs
->bsa_DestBitMap
->pad
!= 0 ||
86 bitScaleArgs
->bsa_SrcBitMap
->Flags
& BMF_AROS_HIDD
||
87 bitScaleArgs
->bsa_DestBitMap
->Flags
& BMF_AROS_HIDD
)
92 BOOL src_colmap_set
= FALSE
;
93 BOOL dst_colmap_set
= FALSE
;
95 BOOL colmaps_ok
= TRUE
;
97 OOP_Object
*srcbm_obj
;
98 OOP_Object
*dstbm_obj
;
102 srcbm_obj
= OBTAIN_HIDD_BM(bitScaleArgs
->bsa_SrcBitMap
);
103 dstbm_obj
= OBTAIN_HIDD_BM(bitScaleArgs
->bsa_DestBitMap
);
104 tmp_gc
= obtain_cache_object(SDD(GfxBase
)->gc_cache
, GfxBase
);
106 /* We must lock any HIDD_BM_SetColorMap calls */
108 if (srcbm_obj
&& dstbm_obj
&& tmp_gc
)
110 /* Try to get a CLUT for the bitmaps */
111 if (IS_HIDD_BM(bitScaleArgs
->bsa_SrcBitMap
)) {
112 if (NULL
!= HIDD_BM_COLMAP(bitScaleArgs
->bsa_SrcBitMap
))
113 srcflags
|= FLG_HASCOLMAP
;
114 srcflags
|= GET_COLMOD_FLAGS(bitScaleArgs
->bsa_SrcBitMap
);
117 srcflags
|= FLG_PALETTE
;
120 if (IS_HIDD_BM(bitScaleArgs
->bsa_DestBitMap
)) {
121 if (NULL
!= HIDD_BM_COLMAP(bitScaleArgs
->bsa_DestBitMap
))
122 dstflags
|= FLG_HASCOLMAP
;
123 dstflags
|= GET_COLMOD_FLAGS(bitScaleArgs
->bsa_DestBitMap
);
126 dstflags
|= FLG_PALETTE
;
130 if ( (srcflags
== FLG_PALETTE
|| srcflags
== FLG_STATICPALETTE
)) {
131 /* palettized with no colmap. Neew to get a colmap from dest*/
132 if (dstflags
== FLG_TRUECOLOR
) {
134 D(bug("!!! NO WAY GETTING PALETTE FOR src IN BltBitMap\n"));
138 } else if (dstflags
== (FLG_TRUECOLOR
| FLG_HASCOLMAP
)) {
140 /* Use the dest colmap for src */
141 HIDD_BM_SetColorMap(srcbm_obj
, HIDD_BM_COLMAP(bitScaleArgs
->bsa_DestBitMap
));
146 if ( (dstflags
== FLG_PALETTE
|| dstflags
== FLG_STATICPALETTE
)) {
147 /* palettized with no pixtab. Nees to get a pixtab from dest*/
148 if (srcflags
== FLG_TRUECOLOR
) {
149 D(bug("!!! NO WAY GETTING PALETTE FOR dst IN BltBitMap\n"));
153 } else if (srcflags
== (FLG_TRUECOLOR
| FLG_HASCOLMAP
)) {
155 /* Use the src colmap for dst */
156 HIDD_BM_SetColorMap(dstbm_obj
, HIDD_BM_COLMAP(bitScaleArgs
->bsa_SrcBitMap
));
158 dst_colmap_set
= TRUE
;
162 if (success
&& colmaps_ok
)
164 HIDDT_DrawMode old_drmd
;
165 struct TagItem cbtags
[] = {
166 { aHidd_GC_DrawMode
, vHidd_GC_DrawMode_Copy
},
170 OOP_GetAttr(tmp_gc
, aHidd_GC_DrawMode
, &old_drmd
);
172 OOP_SetAttrs(tmp_gc
, cbtags
);
174 bitScaleArgs
->bsa_DestWidth
= ScalerDiv(bitScaleArgs
->bsa_SrcWidth
,
175 bitScaleArgs
->bsa_XDestFactor
,
176 bitScaleArgs
->bsa_XSrcFactor
);
178 bitScaleArgs
->bsa_DestHeight
= ScalerDiv(bitScaleArgs
->bsa_SrcHeight
,
179 bitScaleArgs
->bsa_YDestFactor
,
180 bitScaleArgs
->bsa_YSrcFactor
);
182 HIDD_BM_BitMapScale(SDD(GfxBase
)->pointerbm
189 cbtags
[0].ti_Data
= old_drmd
;
190 OOP_SetAttrs(tmp_gc
, cbtags
);
194 HIDD_BM_SetColorMap(srcbm_obj
, NULL
);
196 HIDD_BM_SetColorMap(dstbm_obj
, NULL
);
200 RELEASE_HIDD_BM(dstbm_obj
, bitScaleArgs
->bsa_DestBitMap
);
203 RELEASE_HIDD_BM(srcbm_obj
, bitScaleArgs
->bsa_SrcBitMap
);
206 release_cache_object(SDD(GfxBase
)->gc_cache
, tmp_gc
, GfxBase
);
214 * Algorithm for plain Amiga bitmaps.
217 * Unfortunately it's not possible to use 16/32 bit copying on bitmaps with this
218 * algorithm as there might be an odd number of bits per line in a bitmap and
219 * this creates problems when accessing the 2nd, 4th and so on line.
223 #define DEF_USIZE ULONG
224 #define DEF_SIZE LONG
225 #define DEF_NUMBITSMINUS1 31
227 #define DEF_READMASK 0x80000000
232 /* The following lines are necessary for BYTE copying and have to be used right
236 #define DEF_USIZE UBYTE
237 #define DEF_SIZE BYTE
238 #define DEF_NUMBITSMINUS1 7
239 #define DEF_ANDMASK 7
240 #define DEF_READMASK 0x80
245 bitScaleArgs
-> bsa_DestWidth
= ScalerDiv(bitScaleArgs
-> bsa_SrcWidth
,
246 bitScaleArgs
-> bsa_XDestFactor
,
247 bitScaleArgs
-> bsa_XSrcFactor
);
249 bitScaleArgs
-> bsa_DestHeight
= ScalerDiv(bitScaleArgs
-> bsa_SrcHeight
,
250 bitScaleArgs
-> bsa_YDestFactor
,
251 bitScaleArgs
-> bsa_YSrcFactor
);
253 /* first of all lets allocate DestHeight words of memory so we can
254 precalculate which original line goes to which destination lines */
256 if (NULL
==(LinePattern
= (UWORD
*) AllocMem(sizeof(UWORD
)*bitScaleArgs
->bsa_DestHeight
, 0)))
260 UWORD DestHeight
= bitScaleArgs
-> bsa_DestHeight
;
261 UWORD ys
= bitScaleArgs
-> bsa_SrcY
;
263 ULONG dyd
= bitScaleArgs
-> bsa_DestHeight
;
264 ULONG dys
= bitScaleArgs
-> bsa_SrcHeight
;
266 LONG accuyd
= - (dys
>> 1);
267 while (count
< DestHeight
)
270 while (accuyd
> accuys
)
275 LinePattern
[count
] = ys
;
282 /* now let's go for the real thing: scaling */
284 UWORD DestWidth
= bitScaleArgs
-> bsa_DestWidth
+ bitScaleArgs
-> bsa_DestX
;
285 ULONG xs
= bitScaleArgs
-> bsa_SrcX
;
286 ULONG count
= bitScaleArgs
-> bsa_DestX
;
287 ULONG dxd
= bitScaleArgs
-> bsa_DestWidth
;
288 ULONG dxs
= bitScaleArgs
-> bsa_SrcWidth
;
290 LONG accuxd
= - (dxs
>> 1);
292 ULONG possible_columns
, columncounter
;
295 while (count
< DestWidth
)
298 while (accuxd
> accuxs
)
304 /* instead of copying column by column we can *maybe* even
305 copy more than one column at a time - we'll have to see */
307 if ((count
& DEF_ANDMASK
) > (xs
& DEF_ANDMASK
))
308 possible_columns
= DEF_NUMBITSMINUS1
- (count
& DEF_ANDMASK
);
310 possible_columns
= DEF_NUMBITSMINUS1
- (xs
& DEF_ANDMASK
);
312 columncounter
= 1; /* one row, that's for sure!*/
313 this_x
= xs
; /* in counter we find the x-coord of the current source pixels */
315 LONG accuxd_tmp
= accuxd
;
316 LONG accuxs_tmp
= accuxs
;
318 ULONG count2
= count
+ 1;
320 while (possible_columns
> 0 && count2
< DestWidth
)
322 /* where's the next x-source-coordinate going to be? */
324 while (accuxd_tmp
> accuxs_tmp
)
330 if (this_x
+ 1 == next_x
)
332 /* it's the immediately following coordinate */
339 /* we're copying more than on column then we have to change
342 if (columncounter
!= 1)
347 break; /* the next column is not the neighbouring one */
350 /* determine how many more columns we can copy */
356 /* let's generate a mask that's columncounter bits wide */
357 ReadMask
= DEF_READMASK
;
358 ReadMask
= (DEF_SIZE
)ReadMask
>> (columncounter
- 1);
359 /* let's adjust this mask to the correct position */
360 ReadMask
= ReadMask
>> (xs
& DEF_ANDMASK
);
361 /* The leftmost set bit is xs & DEF_MASK away from the highest bit */
363 /* now that we have generated the read-mask we can copy all the columns
364 * that need copying in all bitmaps.
370 LONG preshift
= (xs
& DEF_ANDMASK
) - (count
& DEF_ANDMASK
);
373 struct BitMap
* SrcBitMap
= bitScaleArgs
-> bsa_SrcBitMap
;
374 struct BitMap
* DestBitMap
= bitScaleArgs
-> bsa_DestBitMap
;
379 AndMask
= (ReadMask
<< shift
) ^ (DEF_SIZE
)(-1);
384 AndMask
= (ReadMask
>> shift
) ^ (DEF_SIZE
)(-1);
387 /* treat all the Bitmaps after another */
388 for (i
= 0; (i
< DestBitMap
-> Depth
) && (i
< SrcBitMap
-> Depth
); i
++)
390 for (y
= 0; y
< bitScaleArgs
-> bsa_DestHeight
; y
++)
393 ind
= LinePattern
[y
] * (SrcBitMap
-> BytesPerRow
>> DEF_SHIFTY
) + /* y-Coord */
394 (xs
>> DEF_SHIFTX
); /* x-Coord */
395 CopyData
= ((DEF_USIZE
*)SrcBitMap
-> Planes
[i
])[ind
];
396 CopyData
= CopyData
& ReadMask
;
399 CopyData
= CopyData
<< shift
;
401 CopyData
= CopyData
>> shift
;
403 /* ind correctly calculates the destination Address for the CopyData */
404 ind
= y
* ((bitScaleArgs
-> bsa_DestY
+ DestBitMap
-> BytesPerRow
) >> DEF_SHIFTY
) + /* y-Coord */
405 (count
>> DEF_SHIFTX
); /* x-Coord */
406 /* Leave a previous picture in the bitmap untouched except for in the
407 * area where the scaled picture goes into
409 ((DEF_USIZE
*)DestBitMap
->Planes
[i
])[ind
] =
410 (((DEF_USIZE
*)DestBitMap
->Planes
[i
])[ind
] & AndMask
) | CopyData
;
412 kprintf("Dest: %x\n\n",(LONG)((DEF_USIZE *)DestBitMap ->Planes[i])[ind]);
419 /* go to next x-coordinate */
420 count
+= columncounter
;
424 /* let's get rid of the allocated memory */
425 FreeMem(LinePattern
, sizeof(UWORD
) * bitScaleArgs
-> bsa_DestHeight
);
429 #undef DEF_NUMBITSMINUS1