rom/hyperlayers/scalelayer.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <aros/asmcall.h>
   9 #include <aros/debug.h>
  10 #include <proto/exec.h>
  11 #include <proto/utility.h>
  12 #include <exec/types.h>
  13 #include <exec/memory.h>
  14 #include <layers_intern.h>
  15 #include <aros/libcall.h>
  16 #include <proto/graphics.h>
  17 #include <graphics/scale.h>
  18 #include "basicfuncs.h"
  19
  20
  21 struct ScaleLayerParam
  22 {
  23   struct TagItem * taglist;
  24   struct LayersBase * LayersBase;
  25 };
  26
  27 AROS_UFP3(struct Region *, ScaleLayerCallback,
  28    AROS_UFPA(struct Hook                *, hook     , A0),
  29    AROS_UFPA(struct Layer               *, l        , A2),
  30    AROS_UFPA(struct ChangeLayerShapeMsg *, clsm     , A1));
  31
  32 /*****************************************************************************
  33
  34     NAME */
  35 #include <proto/layers.h>
  36         AROS_LH2(ULONG, ScaleLayer,
  37
  38 /*  SYNOPSIS */
  39         AROS_LHA(struct Layer   *, l         , A0),
  40         AROS_LHA(struct TagItem *, taglist   , A1),
  41
  42 /*  LOCATION */
  43         struct LayersBase *, LayersBase, 42, Layers)
  44
  45 /*  FUNCTION
  46         Scale the given layer. This function will use the
  47         current shape of the layer and resize it according to
  48         the given newwidth/newheight.
  49
  50     INPUTS
  51        L           - pointer to layer
  52        newwidth    - new width of the layer
  53        newheight   - new height of the layer
  54
  55     RESULT
  56        TRUE if everything went alright, FALSE otherwise
  57
  58     NOTES
  59
  60     EXAMPLE
  61
  62     BUGS
  63
  64     SEE ALSO
  65
  66     INTERNALS
  67
  68     HISTORY
  69
  70 *****************************************************************************/
  71 {
  72   AROS_LIBFUNC_INIT
  73   AROS_LIBBASE_EXT_DECL(struct LayersBase *,LayersBase)
  74
  75   struct ScaleLayerParam parm = {taglist, LayersBase};
  76   struct Region * oldshape;
  77   struct Hook hook;
  78
  79   hook.h_Entry = (IPTR *)ScaleLayerCallback;
  80   hook.h_Data  = (APTR)&parm;
  81
  82   oldshape = ChangeLayerShape(l, 0, &hook);
  83
  84   /*
  85    * I must not free oldshape here since it is also the new shape!
  86    */
  87
  88   return FALSE;
  89   AROS_LIBFUNC_EXIT
  90 } /* ScaleLayer */
  91
  92
  93
  94
  95
  96
  97
  98 /*
  99  * The ScaleLayer callback is doing the actul work of
 100  * scaling the layer.
 101  */
 102 AROS_UFH3(struct Region *, ScaleLayerCallback,
 103    AROS_UFHA(struct Hook                *, hook     , A0),
 104    AROS_UFHA(struct Layer               *, l        , A2),
 105    AROS_UFHA(struct ChangeLayerShapeMsg *, clsm     , A1))
 106 {
 107   AROS_USERFUNC_INIT
 108
 109   struct BitScaleArgs bsa;
 110   struct BitMap * bm = NULL;
 111   struct ScaleLayerParam * slp = (struct ScaleLayerParam *)hook->h_Data;
 112   struct LayersBase * LayersBase = slp->LayersBase;
 113
 114   struct TagItem * taglist = slp->taglist;
 115
 116   if (l->ClipRect->Next)
 117   {
 118     kprintf("%s: Only expecting one ClipRect - leaving!\n",__FUNCTION__);
 119     return NULL;
 120   }
 121
 122   bm = AllocBitMap(GetTagData(LA_DESTWIDTH , l->Width , taglist),
 123                    GetTagData(LA_DESTHEIGHT, l->Height, taglist),
 124                    l->ClipRect->BitMap->Depth,
 125                    0,
 126                    l->rp->BitMap);
 127
 128   bsa.bsa_SrcX        = GetTagData(LA_SRCX, 0, taglist);
 129   bsa.bsa_SrcY        = GetTagData(LA_SRCY, 0, taglist);
 130   bsa.bsa_SrcWidth    = GetTagData(LA_SRCWIDTH , l->Width , taglist);
 131   bsa.bsa_SrcHeight   = GetTagData(LA_SRCHEIGHT, l->Height, taglist);
 132   bsa.bsa_XSrcFactor  = bsa.bsa_SrcWidth;
 133   bsa.bsa_YSrcFactor  = bsa.bsa_SrcHeight;
 134   bsa.bsa_DestX       = GetTagData(LA_DESTX, 0, taglist);
 135   bsa.bsa_DestY       = GetTagData(LA_DESTY, 0, taglist);
 136 /*
 137   bsa.bsa_DestWidth   = GetTagData(LA_DESTWIDTH , l->Width , taglist);
 138   bsa.bsa_DestHeight  = GetTagData(LA_DESTHEIGHT, l->Height, taglist);
 139  */
 140   bsa.bsa_XDestFactor = GetTagData(LA_DESTWIDTH , l->Width , taglist);
 141   bsa.bsa_YDestFactor = GetTagData(LA_DESTHEIGHT, l->Height, taglist);
 142   bsa.bsa_SrcBitMap   = l->ClipRect->BitMap;
 143   bsa.bsa_DestBitMap  = bm;
 144   bsa.bsa_Flags       = 0;
 145 #if 0
 146   bsa.bsa_XDDA;
 147   bsa.bsa_YDDA;
 148   bsa.bsa_Reserved1;
 149   bsa.bsa_Reserved2;
 150 #endif
 151
 152 //kprintf("Scaling bitmap!\n");
 153   BitMapScale(&bsa);
 154
 155   FreeBitMap(l->ClipRect->BitMap);
 156   l->ClipRect->BitMap = bm;
 157 //kprintf("Leaving %s!\n",__FUNCTION__);
 158
 159 kprintf("shaperegion: %p\n",l->shaperegion);
 160
 161   return l->shaperegion;
 162
 163   AROS_USERFUNC_EXIT
 164 }