freepascal.compiler/packages/extra/hermes/p_ga.inc

{
    Free Pascal port of the Hermes C library.
    Copyright (C) 2001-2003  Nikolay Nikolov ([email protected])
    Original C version by Christian Nentwich ([email protected])

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
}

{
   Generic format conversion routines for the HERMES library
   Copyright (c) 1998 Christian Nentwich ([email protected])
   This source code is licensed under the GNU LGPL
  
   Please refer to the file COPYING.LIB contained in the distribution for
   licensing conditions
}

Procedure ConvertP_Generic32_A_Generic32_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pint32(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      Pint32(dest)^ := r Or g Or b Or a;

      Inc(source, 4);
      Inc(dest, 4);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic32_A_Generic24_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  d_ptr : Pchar8;
  count : DWord;
  source, dest : Pchar8;

Begin
  d_ptr := @s_pixel;
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pint32(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      s_pixel := r Or g Or b Or a;

      (dest+R_24)^ := (d_ptr+R_32)^;
      (dest+G_24)^ := (d_ptr+G_32)^;
      (dest+B_24)^ := (d_ptr+B_32)^;

      Inc(source, 4);
      Inc(dest, 3);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic32_A_Generic16_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width Shr 1;

    If count <> 0 Then
      Repeat
        r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
	      iface^.mask_r;
        g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
	      iface^.mask_g;
        b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
	      iface^.mask_b;
        a := (((Pint32(source)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
	      iface^.mask_a;

        s_pixel := (r Or g Or b Or a) And $FFFF;
      
        r := ((((Pint32(source)+1)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
	      iface^.mask_r;
        g := ((((Pint32(source)+1)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
	      iface^.mask_g;
        b := ((((Pint32(source)+1)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
	      iface^.mask_b;
        a := ((((Pint32(source)+1)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
	      iface^.mask_a;

        s_pixel := s_pixel Or ((r Or g Or b Or a) Shl 16);

        Pint32(dest)^ := s_pixel;

        Inc(source, 8);
        Inc(dest, 4);
        Dec(count);
      Until count = 0;


    { Trailing pixel }
    
    If (iface^.s_width And 1) <> 0 Then
    Begin
      r := (((Pint32(source)^) Shr iface^.info.r_right) Shl iface^.info.r_left) And
	    iface^.mask_r;
      g := (((Pint32(source)^) Shr iface^.info.g_right) Shl iface^.info.g_left) And
	    iface^.mask_g;
      b := (((Pint32(source)^) Shr iface^.info.b_right) Shl iface^.info.b_left) And
	    iface^.mask_b;
      a := (((Pint32(source)^) Shr iface^.info.a_right) Shl iface^.info.a_left) And
	    iface^.mask_a;

      Pshort16(dest)^ := r Or g Or b Or a;
      Inc(dest, 2);
      Inc(source, 4);
    End;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic32_A_Generic8_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pint32(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      dest^ := r Or g Or b Or a;

      Inc(source, 4);
      Inc(dest);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic24_A_Generic32_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
                 ((Pint32(source+G_24)^) Shl 8) Or
                 (PInt32(source+B_24)^);

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      Pint32(dest)^ := r Or g Or b Or a;

      Inc(source, 3);
      Inc(dest, 4);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic24_A_Generic24_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  d_ptr : Pchar8;
  count : DWord;
  source, dest : PChar8;

Begin
  d_ptr := @s_pixel;
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
                 ((Pint32(source+G_24)^) Shl 8) Or
                 (PInt32(source+B_24)^);
    
      r := ((s_pixel Shl iface^.info.r_left) Shr iface^.info.r_right) And
        iface^.mask_r;
      g := ((s_pixel Shl iface^.info.g_left) Shr iface^.info.g_right) And
        iface^.mask_g;
      b := ((s_pixel Shl iface^.info.b_left) Shr iface^.info.b_right) And
        iface^.mask_b;
      a := ((s_pixel Shl iface^.info.a_left) Shr iface^.info.a_right) And
        iface^.mask_a;

      s_pixel := r Or g Or b Or a;

      (dest + R_24)^ := (d_ptr + R_32)^;
      (dest + G_24)^ := (d_ptr + G_32)^;
      (dest + B_24)^ := (d_ptr + B_32)^;
    
      Inc(source, 3);
      Inc(dest, 3);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic24_A_Generic16_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
                 ((Pint32(source+G_24)^) Shl 8) Or
                 (PInt32(source+B_24)^);
    
      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      Pshort16(dest)^ := r Or g Or b Or a;

      Inc(source, 3);
      Inc(dest, 2);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic24_A_Generic8_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := ((Pint32(source+R_24)^) Shl 16) Or
                 ((Pint32(source+G_24)^) Shl 8) Or
                 (PInt32(source+B_24)^);
    
      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;
    
      dest^ := r Or g Or b Or a;
    
      Inc(source, 3);
      Inc(dest);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic16_A_Generic32_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pshort16(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      Pint32(dest)^ := r Or g Or b Or a;

      Inc(source, 2);
      Inc(dest, 4);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic16_A_Generic24_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  d_ptr : Pchar8;
  count : DWord;
  source, dest : Pchar8;

Begin
  d_ptr := @s_pixel;
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pshort16(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;
    
      s_pixel := r Or g Or b Or a;

      (dest + R_24)^ := (d_ptr + R_32)^;
      (dest + G_24)^ := (d_ptr + G_32)^;
      (dest + B_24)^ := (d_ptr + B_32)^;
    
      Inc(source, 2);
      Inc(dest, 3);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic16_A_Generic16_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pshort16(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      Pshort16(dest)^ := r Or g Or b Or a;

      Inc(source, 2);
      Inc(dest, 2);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

Procedure ConvertP_Generic16_A_Generic8_A(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;

Begin
  source := iface^.s_pixels; dest := iface^.d_pixels;
  Repeat
    count := iface^.s_width;
    Repeat
      s_pixel := Pshort16(source)^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;

      dest^ := r Or g Or b Or a;

      Inc(source, 2);
      Inc(dest);
      Dec(count);
    Until count = 0;

    Inc(source, iface^.s_add);
    Inc(dest, iface^.d_add);
    Dec(iface^.s_height);
  Until iface^.s_height = 0;
End;

{ -------------------------------------------------------------------------

                             STRETCH CONVERTERS
   
  ------------------------------------------------------------------------- }


Procedure ConvertP_Generic32_A_Generic32_A_S(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;
  dx, dy, x, y : DWord;

Begin
  source := iface^.s_pixels;
  dest := iface^.d_pixels;
  dy := (iface^.s_height Shl 16) Div iface^.d_height;
  dx := (iface^.s_width Shl 16) Div iface^.d_width;
  y := 0;
  Repeat
    count := iface^.d_width;
    x := 0;
    Repeat
      s_pixel := (Pint32(source)+(x Shr 16))^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;
    
      Pint32(dest)^ := r Or g Or b Or a;
    
      Inc(x, dx);
      Inc(dest, 4);
      Dec(count);
    Until count = 0;
    
    Inc(dest, iface^.d_add);
    
    Inc(y, dy);
    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
    y := y And $ffff;

    Dec(iface^.d_height);
  Until iface^.d_height = 0;
End;

Procedure ConvertP_Generic32_A_Generic16_A_S(iface : PHermesConverterInterface); CDecl;

Var
  s_pixel, r, g, b, a : int32;
  count : DWord;
  source, dest : Pchar8;
  dx, dy, x, y : DWord;

Begin
  source := iface^.s_pixels;
  dest := iface^.d_pixels;
  dy := (iface^.s_height Shl 16) Div iface^.d_height;
  dx := (iface^.s_width Shl 16) Div iface^.d_width;
  y := 0;
  Repeat
    count := iface^.d_width;
    x := 0;
    Repeat
      s_pixel := (Pint32(source)+(x Shr 16))^;

      r := ((s_pixel Shr iface^.info.r_right) Shl iface^.info.r_left) And
        iface^.mask_r;
      g := ((s_pixel Shr iface^.info.g_right) Shl iface^.info.g_left) And
        iface^.mask_g;
      b := ((s_pixel Shr iface^.info.b_right) Shl iface^.info.b_left) And
        iface^.mask_b;
      a := ((s_pixel Shr iface^.info.a_right) Shl iface^.info.a_left) And
        iface^.mask_a;
    
      Pshort16(dest)^ := r Or g Or b Or a;
    
      Inc(x, dx);
      Inc(dest, 2);
      Dec(count);
    Until count = 0;
    
    Inc(dest, iface^.d_add);
    
    Inc(y, dy);
    Inc(source, (y Shr 16)*DWord(iface^.s_pitch));
    y := y And $ffff;

    Dec(iface^.d_height);
  Until iface^.d_height = 0;
End;