From c08aa80635c9e741b92c0cbe2c463ba4df571d27 Mon Sep 17 00:00:00 2001
From: Lorenzo Fiorini <lorenzo.fiorini@gmail.com>
Date: Tue, 10 Apr 2007 09:43:16 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/contrib/gd/tests/animgif.prg          |  95 +++++
 harbour/contrib/gd/tests/antialiased.prg      |  99 +++++
 harbour/contrib/gd/tests/barms.prg            |  90 +++++
 harbour/contrib/gd/tests/bartest.prg          |  87 +++++
 harbour/contrib/gd/tests/counter.prg          | 141 +++++++
 harbour/contrib/gd/tests/gdtest.prg           | 122 +++++++
 harbour/contrib/gd/tests/gdtestcls.prg        | 334 +++++++++++++++++
 .../contrib/gd/tests/images_in/conv_test.jpeg | Bin 0 -> 2317 bytes
 harbour/contrib/gd/tests/images_in/empty.jpeg |   0
 .../contrib/gd/tests/images_in/gdlogobig.png  | Bin 0 -> 7827 bytes
 .../contrib/gd/tests/images_in/theclipper.gif | Bin 0 -> 6200 bytes
 harbour/contrib/gd/tests/images_out/EMPTY     |   0
 harbour/contrib/gd/tests/test_out.prg         | 345 ++++++++++++++++++
 harbour/contrib/gd/tests/testdpi.prg          |  39 ++
 harbour/contrib/gd/tests/tostring.prg         |  48 +++
 15 files changed, 1400 insertions(+)
 create mode 100644 harbour/contrib/gd/tests/animgif.prg
 create mode 100644 harbour/contrib/gd/tests/antialiased.prg
 create mode 100644 harbour/contrib/gd/tests/barms.prg
 create mode 100644 harbour/contrib/gd/tests/bartest.prg
 create mode 100644 harbour/contrib/gd/tests/counter.prg
 create mode 100644 harbour/contrib/gd/tests/gdtest.prg
 create mode 100644 harbour/contrib/gd/tests/gdtestcls.prg
 create mode 100644 harbour/contrib/gd/tests/images_in/conv_test.jpeg
 create mode 100644 harbour/contrib/gd/tests/images_in/empty.jpeg
 create mode 100644 harbour/contrib/gd/tests/images_in/gdlogobig.png
 create mode 100644 harbour/contrib/gd/tests/images_in/theclipper.gif
 create mode 100644 harbour/contrib/gd/tests/images_out/EMPTY
 create mode 100644 harbour/contrib/gd/tests/test_out.prg
 create mode 100644 harbour/contrib/gd/tests/testdpi.prg
 create mode 100644 harbour/contrib/gd/tests/tostring.prg

diff --git a/harbour/contrib/gd/tests/animgif.prg b/harbour/contrib/gd/tests/animgif.prg
new file mode 100644
index 0000000000..8fc7a72b5a
--- /dev/null
+++ b/harbour/contrib/gd/tests/animgif.prg
@@ -0,0 +1,95 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * GD API anim gif test file - from GD official documantation, adapted to porting
+ *
+ * This test shows how handle either file handle than file name
+ */
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+   LOCAL im, im2, im3
+   LOCAL black, white, trans
+   LOCAL hFile
+
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+
+   /* Create the image */
+   im = gdImageCreate(100, 100)
+
+   /* Allocate background */
+   white = gdImageColorAllocate(im, 255, 255, 255)
+
+   /* Allocate drawing color */
+   black = gdImageColorAllocate(im, 0, 0, 0)
+
+   /* Allocate transparent color for animation compression */
+   trans = gdImageColorAllocate(im, 1, 1, 1)
+
+   /* Draw rectangle */
+   gdImageRectangle(im, 0, 0, 10, 10, black)
+
+   /* Open output file in binary mode */
+   hFile := FCreate( IMAGES_OUT + "anim1.gif" )
+   /* Write GIF header.  Use global color map.  Loop a few times */
+   gdImageGifAnimBegin(im, hFile, 1, 3)
+   gdImageGifAnimBegin(im, IMAGES_OUT + "anim2.gif", 1, 3)
+   /* Write the first frame.  No local color map.  Delay = 1s */
+   gdImageGifAnimAdd(im, hFile, 0, 0, 0, 100, 1, NIL)
+   gdImageGifAnimAdd(im, IMAGES_OUT + "anim2.gif", 0, 0, 0, 100, 1, NIL)
+   /* construct the second frame */
+   im2 = gdImageCreate(100, 100)
+   /* Allocate background to make it white */
+   gdImageColorAllocate(im2, 255, 255, 255)
+   /* Make sure the palette is identical */
+   gdImagePaletteCopy (im2, im)
+   /* Draw something */
+   gdImageRectangle(im2, 0, 0, 15, 15, black)
+   /* Allow animation compression with transparent pixels */
+   gdImageColorTransparent (im2, trans)
+   /* Add the second frame */
+   gdImageGifAnimAdd(im2, hFile, 0, 0, 0, 100, 1, im)
+   gdImageGifAnimAdd(im2, IMAGES_OUT + "anim2.gif", 0, 0, 0, 100, 1, im)
+   /* construct the second frame */
+   im3 = gdImageCreate(100, 100)
+   /* Allocate background to make it white */
+   gdImageColorAllocate(im3, 255, 255, 255)
+   /* Make sure the palette is identical */
+   gdImagePaletteCopy (im3, im)
+   /* Draw something */
+   gdImageRectangle(im3, 0, 0, 15, 20, black)
+   /* Allow animation compression with transparent pixels */
+   gdImageColorTransparent (im3, trans)
+   /* Add the third frame, compressing against the second one */
+   gdImageGifAnimAdd(im3, hFile, 0, 0, 0, 100, 1, im2)
+   gdImageGifAnimAdd(im3, IMAGES_OUT + "anim2.gif", 0, 0, 0, 100, 1, im2)
+   /* Write the end marker */
+   /* gdImageGifAnimEnd(out); is the same as the following: */
+   //putc (';', out);
+   gdImageGifAnimEnd( hFile )
+   gdImageGifAnimEnd( IMAGES_OUT + "anim2.gif" )
+   /* Close file */
+   FClose( hFile )
+   /* Destroy images */
+   gdImageDestroy(im)
+   gdImageDestroy(im2)
+   gdImageDestroy(im3)
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
diff --git a/harbour/contrib/gd/tests/antialiased.prg b/harbour/contrib/gd/tests/antialiased.prg
new file mode 100644
index 0000000000..ec03336d38
--- /dev/null
+++ b/harbour/contrib/gd/tests/antialiased.prg
@@ -0,0 +1,99 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * GD API test file
+ */
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+   LOCAL im
+   LOCAL white, blue, black
+
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+
+   /*
+     This sample shows differences on use of antiliased command between a
+     palette based image and a true color image.
+     Normally antialias works better with a true color image.
+
+     From GD official documentation:
+
+     Antialiased lines can be drawn on both truecolor and palette-based images.
+     However, attempts to draw antialiased lines on highly complex palette-based backgrounds
+     may not give satisfactory results, due to the limited number of colors available in the
+     palette. Antialiased line-drawing on simple backgrounds should work well with palette-based
+     images; otherwise create or fetch a truecolor image instead.
+
+   */
+
+   /* ***** DRAW A LINE IN A PALETTE BASED IMAGE ***** */
+
+   /* First we create a true color image */
+   im := gdImageCreatePalette(100, 100)    // alias of gdImageCreate()
+
+   /* First allocate color is Background color */
+   black := gdImageColorAllocate(im, 0, 0, 0)
+
+   /* set foreground color */
+   blue  := gdImageColorAllocate(im, 0, 0, 255)
+
+   /* Now we draw an aliased line */
+   gdImageLine(im, 0, 0, 99, 40, blue)
+
+   /* Then we set anti-alias color */
+   gdImageSetAntiAliased(im, blue)
+
+   /* and re-draw the line in antialiased mode */
+   gdImageLine(im, 0, 40, 99, 80, gdAntiAliased)
+
+   /* saving the image */
+   gdImageJpeg(im, IMAGES_OUT + "antialiasedpal.jpg")
+
+   /* Destroy it */
+   gdImageDestroy(im)
+
+   /* ***** DRAW A LINE IN A TRUE COLOR IMAGE ***** */
+
+   /* First we create a true color image */
+   im := gdImageCreateTrueColor(100, 100)
+
+   /* Background color (true color comes with black background, we have to fill it) */
+   white := gdTrueColor( 255, 255, 255 )
+   gdImageFilledRectangle(im, 0, 0, 100, 100, white)
+
+   /* set foreground color */
+   blue  := gdImageColorAllocate(im, 0, 0, 255)
+
+   /* Now we draw an aliased line */
+   gdImageLine(im, 0, 0, 99, 40, blue)
+
+   /* Then we set anti-alias color */
+   gdImageSetAntiAliased(im, blue)
+
+   /* and re-draw the line in antialiased mode */
+   gdImageLine(im, 0, 40, 99, 80, gdAntiAliased)
+
+   /* saving the image */
+   gdImageJpeg(im, IMAGES_OUT + "antialiasedtrue.jpg")
+
+   /* Destroy it */
+   gdImageDestroy(im)
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
diff --git a/harbour/contrib/gd/tests/barms.prg b/harbour/contrib/gd/tests/barms.prg
new file mode 100644
index 0000000000..63b8a03b9f
--- /dev/null
+++ b/harbour/contrib/gd/tests/barms.prg
@@ -0,0 +1,90 @@
+Function Main()
+
+   local bar
+
+	 // // Creating some Color (arguments are R, G, B)
+   local black  := {0,0,0}
+   local white  := {255,255,255}
+
+   local blue   := {0,0,255}
+   local yellon := {255,255,128}
+
+   local red    := {255,0,0}
+
+   local ccode13    := "P48WBQ7BX3M73X8V3WRT7F9JW"
+   local ccode8     := "P48WBQ7BX3M73X8V3WRT7F9JW"
+   local ccode128   := "P48WBQ7BX3M73X8V3WRT7F9JW"
+
+   local nlower := 1 , nhight := 50
+
+   /* here is the list of arguments
+   1- Barcode Type 13,8  and 128
+   */
+
+   bar := TCode():New(13)
+
+   /* Here is the list of the arguments
+   1 - Thickness
+   2 - Color of bars
+   3 - Color of spaces
+   4 - Resolution
+   5 - Text Font (0-5)
+   */
+   bar:Configure( 70 , black, white, 2, 1 )
+
+   /* Here is the list of the arguments
+   1 - Width
+   2 - Height
+   3 - Filename (empty : display on screen)
+   4 - Background color */
+   bar:CreateBar( 205, 105,,white)
+
+   // 1 - code bar
+   bar:Draw13(ccode13)
+
+   // Build image
+   bar:Finish(2)
+
+   // EAN8
+   bar:= TCode():New(8)
+
+   bar:Configure( 70 , black, white, 2 , 1 )
+
+   bar:CreateBar( 154, 100,,white)
+
+   bar:Draw8(ccode8)
+
+   bar:Finish(8)
+
+   bar:ResizeImage()
+
+   // EAN128
+   bar:= TCode():New(128)
+
+   bar:Configure( 50 , black, white, 2 , 1 )
+
+   // output image
+   bar:out_img := "image/"
+
+   bar:CreateBar( 559, 88,"Bar128",white)
+
+   // 1- code bar
+   // 2- barcode types A/B/C
+   // A- Alphanumeric characters uppercase
+   // B- Alphanumeric characters upper and lowercase
+   // C- Numeric pairs of integer
+   bar:Draw128(cCode128,"A")
+
+   bar:Finish(8)
+
+   // BRAZIL-FEBRABAN
+   bar:= TCode():New(25)
+
+   bar:Configure( 25 , black, white, 1 , 1, , .T. )
+
+   // output image
+   bar:out_img := "febraban/"
+   bar:CreateBar( 560 ,60, "febraban", white )
+   bar:DrawI25("P48WBQ7BX3M73X8V3WRT7F9JW")
+   bar:Finish(8)
+RETURN NIL
diff --git a/harbour/contrib/gd/tests/bartest.prg b/harbour/contrib/gd/tests/bartest.prg
new file mode 100644
index 0000000000..c1a57812c9
--- /dev/null
+++ b/harbour/contrib/gd/tests/bartest.prg
@@ -0,0 +1,87 @@
+Function Main()
+
+   local bar
+
+	 // // Creating some Color (arguments are R, G, B)
+   local black  := {0,0,0}
+   local white  := {255,255,255}
+
+   local blue   := {0,0,255}
+   local yellon := {255,255,128}
+
+   local red    := {255,0,0}
+
+   local ccode13    := "789136043666"
+   local ccode8     := "0421000"
+//   local ccode128   := "00011005100000000"
+   local ccode128   := "Code 128"
+
+   local nlower := 1 , nhight := 50
+
+   /* here is the list of arguments
+   1- Barcode Type 13,8  and 128
+   */
+
+   bar := TCode():New(13)
+
+   /* Here is the list of the arguments
+   1 - Thickness
+   2 - Color of bars
+   3 - Color of spaces
+   4 - Resolution
+   5 - Text Font (0-5)
+   */
+   bar:Configure( 70 , black, white, 2, 1 )
+
+   /* Here is the list of the arguments
+   1 - Width
+   2 - Height
+   3 - Filename (empty : display on screen)
+   4 - Background color */
+   bar:CreateBar( 205, 105,,white)
+
+   // 1 - code bar
+   bar:Draw13(ccode13)
+
+   // Build image
+   bar:Finish(2)
+
+   // EAN8
+   bar:= TCode():New(8)
+
+   bar:Configure( 70 , black, white, 2 , 1 )
+
+   bar:CreateBar( 154, 100,,white)
+
+   bar:Draw8(ccode8)
+
+   bar:Finish(8)
+
+   bar:ResizeImage()
+
+   // EAN128
+   bar:= TCode():New(128)
+
+   bar:Configure( 50 , black, white, 2 , 1 )
+
+   bar:CreateBar( 300, 400,"Bar128",white)
+
+   // 1- code bar
+   // 2- barcode types A/B/C
+   // A- Alphanumeric characters uppercase
+   // B- Alphanumeric characters upper and lowercase
+   // C- Numeric pairs of integer
+   bar:Draw128(cCode128,"B")
+
+   bar:Finish(2)
+
+   // BRAZIL-FEBRABAN
+   bar:= TCode():New(25)
+
+   bar:Configure( 25 , black, white, 1 , 1, , .T. )
+
+   bar:CreateBar( 560 ,60, "febraban", white )
+   bar:DrawI25("104995628545723070285700000008218000")
+   bar:Finish(8)
+
+RETURN NIL
diff --git a/harbour/contrib/gd/tests/counter.prg b/harbour/contrib/gd/tests/counter.prg
new file mode 100644
index 0000000000..4145fb71f9
--- /dev/null
+++ b/harbour/contrib/gd/tests/counter.prg
@@ -0,0 +1,141 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * Counter sample
+ * usage:
+ * counter <number to show>
+ * i.e.: counter 34524
+ */
+
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "digits/"
+#define IMAGES_OUT "images_out/"
+
+#define DISPLAY_NUM  10
+
+PROCEDURE Main( cValue, cBaseImage )
+
+   LOCAL oI, oIDigits, nWidth, nHeight, nDigits, nNumWidth, oTemp
+   //LOCAL black, white, blue, red, green, cyan, gray
+   LOCAL white
+   LOCAL aNumberImages := {}
+   LOCAL n, nValue
+
+   // A value if not passed
+   DEFAULT cValue     TO Str( hb_RandomInt( 1, 10^DISPLAY_NUM ), DISPLAY_NUM )
+   DEFAULT cBaseImage TO "57chevy.gif"
+
+   IF !File( IMAGES_IN + cBaseImage )
+      ? "ERROR: Base Image File '" + IMAGES_IN + cBaseImage + "' not found"
+      QUIT
+   ENDIF
+
+   nValue := Val( cValue )
+
+   // Fix num lenght
+   IF nValue > 10^DISPLAY_NUM
+      nValue := 10^DISPLAY_NUM
+   ENDIF
+
+   cValue := StrZero( nValue, DISPLAY_NUM )
+
+   Tracelog( "Value", cValue )
+
+   // To set fonts run this command:
+   // for windows: SET GDFONTPATH=c:\windows\fonts
+   // per linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType
+
+   // SET GDFONTPATH=c:\windows\fonts
+   //IF GetEnv( "GDFONTPATH" ) == ""
+   //   ? "Please set GDFONTPATH"
+   //   ? "On Windows: SET GDFONTPATH=c:\windows\fonts"
+   //   ? "On Linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType"
+   //   ?
+   //ENDIF
+
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+
+   /* Load a digits image in memory from file */
+   oIDigits := GDImage():LoadFromGif( IMAGES_IN + cBaseImage )
+
+   /* Get single number images */
+
+   // Get dimensions
+   nWidth  := oIDigits:Width()
+   nHeight := oIDigits:Height()
+
+   // Check base digits image
+   DO CASE
+      CASE nWidth % 10 == 0   // 0..9 digits
+           nDigits := 10
+      CASE nWidth % 11 == 0   // 0..9 :
+           nDigits := 11
+      CASE nWidth % 13 == 0   // 0..9 : am pm
+           nDigits := 13
+      OTHERWISE
+           ? "Error on digits image"
+   ENDCASE
+   nNumWidth := nWidth / nDigits
+
+   Tracelog( "nNumWidth, nWidth, nHeight, nDigits", nNumWidth, nWidth, nHeight, nDigits )
+
+   /* extracts single digits */
+   FOR n := 1 TO nDigits
+       oTemp := oIDigits:Copy( (n - 1) * nNumWidth, 0, nNumWidth, nHeight )
+       oTemp:SaveGif( IMAGES_OUT + StrZero( n-1, 2 ) + ".gif" )
+       // Here I have to clone the image, otherwise on var destruction I loose
+       // the image in memory
+       aAdd( aNumberImages, oTemp:Clone() )
+   NEXT
+
+   /* Create counter image in memory */
+   oI := GDImage( nNumWidth * DISPLAY_NUM, nHeight )  // the counter
+   Tracelog( "Image dimensions: ", oI:Width(), oI:Height() )
+
+   /* Allocate background */
+   white := oI:SetColor( 255, 255, 255 )
+
+   /* Allocate drawing color */
+   //black := oI:SetColor( 0, 0, 0 )
+   //blue  := oI:SetColor( 0, 0, 255 )
+   //red   := oI:SetColor( 255, 0, 0 )
+   //green := oI:SetColor( 0, 255, 0 )
+   //cyan  := oI:SetColor( 0, 255, 255 )
+
+   /* Draw rectangle */
+   //oI:Rectangle( 0, 0, 200, 30, , blue )
+
+   /* Draw Digits */
+   FOR n := 1 TO Len( cValue )
+       // Retrieve the number from array in memory
+       oTemp := aNumberImages[ Val( cValue[ n ] ) + 1 ]:Clone()
+       // Save it to show the number for a position
+       oTemp:SaveGif( IMAGES_OUT + "Pos_" + StrZero( n, 2 ) + ".gif" )
+       // Set the digit as tile that I have to use to fill position in counter
+       oI:SetTile( oTemp )
+       // Fill the position with the image digit
+       oI:Rectangle( (n - 1) * nNumWidth, 0, (n - 1) * nNumWidth + nNumWidth, nHeight, TRUE, gdTiled )
+   NEXT
+
+   /* Write Final Counter Image */
+   oI:SaveGif( IMAGES_OUT + "counter.gif" )
+
+   /* Destroy images in memory */
+   // Class does it automatically
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
+
diff --git a/harbour/contrib/gd/tests/gdtest.prg b/harbour/contrib/gd/tests/gdtest.prg
new file mode 100644
index 0000000000..c3283a4c52
--- /dev/null
+++ b/harbour/contrib/gd/tests/gdtest.prg
@@ -0,0 +1,122 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * GD API test file
+ */
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+   LOCAL im, im2
+   LOCAL black, white, blue, red, green, cyan
+   LOCAL aClip, color, font, aRect
+
+   // SET GDFONTPATH=c:\windows\fonts
+   IF GetEnv( "GDFONTPATH" ) == ""
+      ? "Please set GDFONTPATH"
+      ? "On Windows: SET GDFONTPATH=c:\windows\fonts"
+      ? "On Linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType"
+      ?
+   ENDIF
+/*
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+*/
+
+   ? gdVersion()
+
+   /* Create an image in memory */
+   im = gdImageCreate(200, 200)
+
+   /* Load an image in memory from file */
+   im2 = gdImageCreateFromJpeg( IMAGES_IN + "conv_test.jpeg")
+
+   /* Now work on first empty image */
+
+   /* Allocate background */
+   white = gdImageColorAllocate(im, 255, 255, 255)
+
+   /* Allocate drawing color */
+   black = gdImageColorAllocate(im, 0, 0, 0)
+   blue  = gdImageColorAllocate(im, 0, 0, 255)
+   red   = gdImageColorAllocate(im, 255, 0, 0)
+   green = gdImageColorAllocate(im, 0, 255, 0)
+   cyan  = gdImageColorAllocate(im, 0, 255, 255)
+
+   /* Draw rectangle */
+   gdImageFilledRectangle(im, 0, 0, 199, 199, cyan)
+   gdImageRectangle(im, 0, 0, 199, 199, black)
+
+   /* Draw pixel */
+   gdImageSetPixel(im, 50, 5, blue)
+   gdImageSetPixel(im, 50, 15, blue)
+
+   /* Draw lines */
+   gdImageLine(im, 0, 0, 199, 199, blue)
+   gdImageDashedLine(im, 0, 199, 199, 0, blue)
+
+   /* Draw polygons */
+   gdImagePolygon(im, { { 10, 10 }, { 70, 10 }, { 80, 60 } }, red)
+   gdImageFilledPolygon(im, { { 160, 180 }, { 170, 110 }, { 150, 160 } }, green)
+
+   /* Draw an arc */
+   gdImageArc(im, 50, 50, 40, 40, 30, 190, red )
+   gdImageFilledCircle(im, 50, 150, 45, green )
+   gdImageEllipse(im, 120, 120, 50, 20, blue )
+
+   /* Draw some characters */
+   font := gdFontGetLarge()
+
+   gdImageString(im, font, 0, 0, 'Test', black)
+   gdImageString(im, font, 0, 15, 'P', black)
+   gdImageChar(im, font, 0, 30, 'W', black)
+
+   gdImageStringUp(im, font, 70, 90, 'Test', black)
+   gdImageStringUp(im, font, 70, 15, 'P', black)
+   gdImageCharUp(im, font, 70, 30, 'W', black)
+
+   gdImageStringFt(im, blue, "arial", 20, 30, 20, 90, 'Test')
+
+   ? gdImageStringFTCircle(im, 120, 120, 50, 25, 0.8, "arial", 24, "Up", /*"Down"*/, red)
+
+   /* Set Clip Rectangle */
+   gdImageSetClip(im, 25, 25, 75, 75)
+
+   /* Retrieve Clipping rectangle */
+   aClip := gdImageGetClip(im)
+
+//   ? "Clipping rectangle values"
+//   ? hb_DumpVar( aClip )
+
+   /* Query functions */
+   color := gdImageGetPixel(im, gdImageSX(im) / 2, gdImageSY(im) / 2)
+   ? "Pixel Color is: ", color
+   ? "RGB Values: ", gdImageRed(im,color), gdImageGreen(im,color), gdImageBlue(im,color)
+   ? "Alpha Value: ",  gdImageAlpha(im,color)
+
+   /* Write Images on files */
+   gdImagePng(im, IMAGES_OUT + "rect.png")
+
+   gdImagePng(im2, IMAGES_OUT + "conv_test.png")
+   gdImageJpeg(im2, IMAGES_OUT + "conv_test.jpg")
+
+   /* Destroy images in memory */
+   gdImageDestroy(im)
+   gdImageDestroy(im2)
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
diff --git a/harbour/contrib/gd/tests/gdtestcls.prg b/harbour/contrib/gd/tests/gdtestcls.prg
new file mode 100644
index 0000000000..17bff77fe3
--- /dev/null
+++ b/harbour/contrib/gd/tests/gdtestcls.prg
@@ -0,0 +1,334 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * GD Class test file
+ */
+
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+   LOCAL im, im2
+   LOCAL black, white, blue, red, green, cyan, gray
+   LOCAL aClip, color, font, aRect
+   LOCAL oI, oI2, oI3, oI4, nThick, n, nSecs
+   LOCAL oI5
+   LOCAL oB
+
+   // To set fonts run this command:
+   // for windows: SET GDFONTPATH=c:\windows\fonts
+   // per linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType
+
+   // SET GDFONTPATH=c:\windows\fonts
+   IF GetEnv( "GDFONTPATH" ) == ""
+      ? "Please set GDFONTPATH"
+      ? "On Windows: SET GDFONTPATH=c:\windows\fonts"
+      ? "On Linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType"
+      ?
+   ENDIF
+/*
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+*/
+
+   /* Create an image in memory */
+   oI := GDImage():Create( 200, 200 )
+
+   /* Load an image in memory from file */
+   oI2 := GDImage():LoadFromJpeg( IMAGES_IN + "conv_test.jpeg" )
+   oI5 := GDImage():LoadFromJpeg( IMAGES_IN + "conv_test.jpeg" )
+
+   /* Now work on first empty image */
+
+   /* Allocate background */
+   white := oI:SetColor( 255, 255, 255 )
+
+   /* Allocate drawing color */
+   black := oI:SetColor( 0, 0, 0 )
+   blue  := oI:SetColor( 0, 0, 255 )
+   red   := oI:SetColor( 255, 0, 0 )
+   green := oI:SetColor( 0, 255, 0 )
+   cyan  := oI:SetColor( 0, 255, 255 )
+
+   /* Draw rectangle */
+   oI:Rectangle( 0, 0, 199, 199, .T., cyan )
+   oI:Rectangle( 0, 0, 199, 199,, black)
+
+   oI:SetColor( blue )
+
+   /* Draw pixel */
+   oI:SetPixel( 50, 5 )
+
+   /* Draw lines */
+   oI:Line( 0, 0, 199, 199, blue )
+   oI:DashedLine(0, 199, 199, 0, blue)
+   nThick := oI:SetThickness( 5 )
+   oI:Line( 50, 150, 100, 150 )
+   oI:SetThickness( nThick )
+
+   oI:AddStyle( red )
+   oI:AddStyle( red )
+   oI:AddStyle( red )
+   oI:AddStyle( gdTransparent )
+   oI:AddStyle( gdTransparent )
+   oI:AddStyle( gdTransparent )
+   oI:SetStyle()
+   oI:Line( 50, 180, 100, 180, gdStyled )
+
+   oI:ResetStyles()
+   oI:AddStyle( black )
+   oI:AddStyle( gdTransparent )
+   oI:SetStyle()
+   oI:Line( 50, 185, 100, 185, gdStyled )
+
+
+   /* Draw polygons */
+   oI:AddPoint( 10, 10 )
+   oI:AddPoint( 70, 10 )
+   oI:AddPoint( 80, 60 )
+   oI:Polygon()
+
+   oI:ResetPoints()
+   oI:AddPoint( 160, 180 )
+   oI:AddPoint( 170, 110 )
+   oI:AddPoint( 150, 160 )
+   oI:Polygon(,.T., green)
+
+   /* Draw an arc */
+   oI:Arc(50, 50, 40, 40, 30, 190,, red )
+   oI:Circle(50, 150, 45, .t., green )
+   oI:Ellipse(120, 120, 50, 20, , green )
+
+   /* Draw a character. */
+   oI:SetFontLarge()
+   ? "Font Dims", oI:GetFontWidth(), oI:GetFontHeight()
+   oI:SetColor( black )
+   //__OutDebug( "Font", font )
+   oI:Say( 0, 0, 'Test')
+   oI:Say( 0, 15, 'P')
+   oI:Say( 0, 30, 'W')
+
+   oI:SayVertical( 70, 90, 'Test')
+   oI:SayVertical( 70, 15, 'P')
+   oI:SayVertical( 70, 30, 'W')
+
+   oI:SayFreeType( 20, 30, "Test", "arial", 24, 15 )
+   oI:SayFreeType( 40, 70, "Test2" )
+
+
+   /* Set Clip Rectangle */
+   oI:SetClippingArea(25, 25, 75, 75)
+
+   /* Retrieve Clipping rectangle */
+   aClip := oI:GetClippingArea()
+   ? "Clipping rectangle values"
+//   ? hb_DumpVar( aClip )
+
+   /* Query functions */
+
+   color := oI:GetPixel( oI:Width() / 2, oI:Height() / 2)
+   ? "Pixel Color is: ", color
+   ? "RGB Values: ", oI:Red(color), oI:Green(color), oI:Blue(color)
+   ? "Alpha Value: ",  oI:Alpha(color)
+
+   /* Write Images on files */
+   oI:SavePng( IMAGES_OUT + "rect.png" )
+   oI2:SavePng( IMAGES_OUT + "test.png" )
+   oI2:SaveJpeg( IMAGES_OUT + "test.jpg" )
+   oI2:SaveGif( IMAGES_OUT + "test.gif" )
+   //oI2:SaveWBmp( IMAGES_OUT + "vale1.bmp", black )
+
+   /* test copy functions */
+
+   //oI3 := GDImage():CreateTrueColor( oI2:Width * 2, oI2:Height * 2 )
+   //oI2:CopyResampled( 0, 0, oI2:Width, oI2:Height, 0, 0, oI3:Width, oI3:Height, oI3 )
+   //oI3:SaveJpeg("vale2.jpg")
+
+
+   nSecs := Seconds()
+   ? "start copy zoomed"
+   oI3 := oI2:CopyZoomed( 150 )
+   ? "end", Seconds() - nSecs
+   nSecs := Seconds()
+   ? "start save"
+   oI3:SaveJpeg( IMAGES_OUT + "zoom.jpg" )
+   ? "end", Seconds() - nSecs
+
+   nSecs := Seconds()
+   ? "start clone & zoom"
+   oI4:= oI2:Clone():Zoom( 200 )
+   ? "end", Seconds() - nSecs
+
+   nSecs := Seconds()
+   ? "start clone"
+   oI4:= oI5:Clone()
+   ? "end", Seconds() - nSecs
+
+   nSecs := Seconds()
+   ? "start zoom"
+   oI4:Zoom( 200 )
+   ? "end", Seconds() - nSecs
+
+   //__OutDebug( oI2:pImage )
+   //oI4:SetFontGiant()
+   gray := oI4:SetColor(30, 30, 30)
+   blue := oI4:SetColor(0, 0, 200)
+
+   //oI4:SetColor( black )
+   //oI4:Say( 100, 10, "Valentina" )
+   IF OS() = "Linux"
+      oI4:SayFreeType( oI4:CenterWidth(), oI4:CenterHeight(), "GD power", "arib____", 40, 45 )
+   ELSE
+      nSecs := Seconds()
+      ? "start write"
+      FOR n := 0 TO 350 STEP 10
+          oI4:SayFreeType( oI4:CenterWidth(), oI4:CenterHeight(), "             GD Font Power", "arial", 20, n )
+      NEXT
+      ? "end", Seconds() - nSecs
+      oI4:SetTransparent( blue )
+      oI4:SayFreeType( oI4:CenterWidth()-4, oI4:CenterHeight()+4, "xHarbour", "verdana", 70, n, gray )
+      oI4:SayFreeType( oI4:CenterWidth(), oI4:CenterHeight(), "xHarbour", "verdana", 70, n, blue )
+   ENDIF
+   oI4:SaveJpeg( IMAGES_OUT + "writing.jpg" )
+
+
+   //oI4 := __ObjClone( oI2 )
+   oI4 := oI2:Clone()
+
+   nSecs := Seconds()
+   ? "start rotate outside"
+   oI2:Rotate( 45 )
+   ? "end", Seconds() - nSecs
+   oI2:SaveJpeg( IMAGES_OUT + "rotateout.jpg" )
+
+   nSecs := Seconds()
+   ? "start rotate inside"
+   oI4:RotateInside( 45 )
+   ? "end", Seconds() - nSecs
+   //oI2:CopyRotated( , , , , , , 90, oI4 )
+   oI4:SaveJpeg( IMAGES_OUT + "rotatein.jpg" )
+
+
+   oI5:Zoom( 40 )
+   //oI5:Rotate( 90 )
+   blue := oI5:SetColor(0, 0, 200)
+   oI5:SayFreeType( oI5:CenterWidth(), oI5:CenterHeight(), "xHarbour", "verdana", 20, 0, blue )
+   oI5:SaveJpeg( IMAGES_OUT + "xh_zoom.jpg" )
+
+
+   oI5 := GDChart( 400, 400 )
+   // Set background
+   white := oI5:SetColor(255, 255, 255)
+   // Define piece colors
+   blue  := oI5:SetColor(0, 0, 200)
+   gray  := oI5:SetColor(30, 30, 30)
+   green := oI5:SetColor(0, 250, 0)
+   red   := oI5:SetColor(250, 0, 0)
+
+   // Load an image as brush
+   oB := GDImage():LoadFromGif( IMAGES_IN + "italia.gif" )
+   oB:Zoom(15)
+
+   //oI5:Circle( 200, 200, oI5:Width() )
+   //oI5:Line( 0, 200, 200, 200 )
+
+   oI5:AddDef( "FONTPITCH", "GIANT" )
+
+   oI5:SetData( { ;
+                   { "LABEL" => "One"  , "VALUE" => 10, "COLOR"  => blue , "FILLED" => TRUE, "EXTRUDE" => 40/*, "TILE" => oB*/ },;
+                   { "LABEL" => "Two"  , "VALUE" => 35, "COLOR"  => gray , "FILLED" => TRUE, "FONT" => { "NAME" => "Verdana", "PITCH" => 12, "ANGLE" => 0, "COLOR" => red }  },;
+                   { "LABEL" => "Three", "VALUE" => 55, "COLOR"  => green, "FILLED" => TRUE }, ;
+                   { "LABEL" => "Four" , "VALUE" => 55, "FILLED" => TRUE , "TILE"   => oB }, ;
+                   { "LABEL" => "Five" , "VALUE" => 55, "COLOR"  => red  , "FILLED" => TRUE, "EXTRUDE" => 20}, ;
+                   { "LABEL" => "Six"  , "VALUE" => 55, "FILLED" => TRUE , "TILE"   => oB }, ;
+                   { "LABEL" => "Seven", "VALUE" => 55, "FILLED" => TRUE , "COLOR"  => green } ;
+                } )
+
+   //oI5:VerticalBarChart()
+   oI5:PieChart()
+
+
+   oI5:SaveJpeg( IMAGES_OUT + "pie.jpg" )
+
+   oI5 := GDChart( 640, 480 )
+   // Set background
+   white := oI5:SetColor(255, 255, 255)
+   // Define piece colors
+   blue  := oI5:SetColor(0, 0, 200)
+   gray  := oI5:SetColor(30, 30, 30)
+   green := oI5:SetColor(0, 250, 0)
+   red   := oI5:SetColor(250, 0, 0)
+
+   // Load an image as brush
+   oB := GDImage():LoadFromJpeg( IMAGES_IN + "fsg.jpg" )
+   oB:Zoom(15)
+
+//   oI5:AddDef( "MAXVALUE", 150 )
+   oI5:AddDef( "AXISPICT", "@E 999999" )
+   oI5:AddDef( "FONTPITCH", "GIANT" )
+   oI5:AddDef( "COLOR", blue )
+
+   //oI5:AddSeries( "LABEL"  => "Primo",;
+   //               "VALUES" => { 10, 23, 54, 11, 32, 25 }, ;
+   //               "COLOR"  => blue )
+
+/*
+   oI5:SetData( { ;
+                  { "LABEL" => "One", "VALUE" => 1000, "COLOR" => blue, "FILLED" => TRUE, "EXTRUDE" => 40 },;
+                  { "LABEL" => "Two", "VALUE" => 3500, "COLOR" => gray, "FILLED" => TRUE, "FONT" => { "NAME" => "Verdana", "PITCH" => 12, "ANGLE" => 0, "COLOR" => red }  },;
+                  { "LABEL" => "Three", "VALUE" => 5500, "COLOR" => green, "FILLED" => TRUE }, ;
+                  { "LABEL" => "Four", "VALUE" => 6500, "FILLED" => TRUE, "TILE" => oB }, ;
+                  { "LABEL" => "Five", "VALUE" => 3400, "FILLED" => TRUE, "COLOR" => green }, ;
+                  { "LABEL" => "Six", "VALUE" => 10000 }, ;
+                  { "LABEL" => "Seven", "VALUE" => 0, "FILLED" => TRUE, "COLOR" => red }, ;
+                  { "LABEL" => "Eight", "VALUE" => -2200 }, ;
+                  { "LABEL" => "Nine", "VALUE" => -3600, "COLOR" => blue, "FILLED" => TRUE } ;
+                } )
+*/
+
+
+   oI5:SetData( { ;
+                  { "LABEL" => "One", "VALUE" => 10, "COLOR" => blue, "FILLED" => TRUE, "EXTRUDE" => 40/*, "TILE" => oB*/ },;
+                  { "LABEL" => "Two", "VALUE" => 35, "COLOR" => gray, "FILLED" => TRUE, "FONT" => { "NAME" => "Verdana", "PITCH" => 12, "ANGLE" => 0, "COLOR" => red }  },;
+                  { "LABEL" => "Three", "VALUE" => 55, "COLOR" => green, "FILLED" => TRUE }, ;
+                  { "LABEL" => "Four", "VALUE" => 65, "FILLED" => TRUE, "TILE" => oB }, ;
+                  { "LABEL" => "Five", "VALUE" => 34, "FILLED" => TRUE, "COLOR" => green }, ;
+                  { "LABEL" => "Six", "VALUE" => 100 }, ;
+                  { "LABEL" => "Seven", "VALUE" => 0, "FILLED" => TRUE, "COLOR" => red }, ;
+                  { "LABEL" => "Eight", "VALUE" => -0 }, ;
+                  { "LABEL" => "Nine", "VALUE" => -0, "COLOR" => blue, "FILLED" => TRUE } ;
+                } )
+
+
+   //oI5:VerticalBarChart()
+   //oI5:HorizontalBarChart()
+   oI5:LineChart()
+   oI5:SaveJpeg( IMAGES_OUT + "hystogram1.jpg" )
+   //oI5:LineChart()
+   //oI5:SaveJpeg( IMAGES_OUT + "hystogram.jpg" )
+
+   //oI4 := GDImage():CreateTrueColor( oI2:Width * 2, oI2:Height * 2 )
+   //oI2:CopyResampled( 0, 0, oI2:Width, oI2:Height, 0, 0, oI2:Width, oI2:Height, oI4 )
+   //oI2:CopyResampled( 0, 0, oI2:Width, oI2:Height, oI4:CenterWidth(), oI4:CenterHeight(), oI2:Width, oI2:Height, oI4 )
+   //oI4:SaveJpeg("vale3.jpg")
+
+   /* Destroy images in memory */
+   // Class does it auto
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
+
diff --git a/harbour/contrib/gd/tests/images_in/conv_test.jpeg b/harbour/contrib/gd/tests/images_in/conv_test.jpeg
new file mode 100644
index 0000000000000000000000000000000000000000..7283d1a4754baf7d760237664763b6201c35663b
GIT binary patch
literal 2317
zcmb7FdsvcL9{#`^d1)apsfj6SS_qT3F)>q15z0xqgvE{)c`2d6Rm5zqnI~f`FJbDV
zS&r5q6^fuvQK_Z#Frkx9Iw_!K*{17#t5s$#t;s!~PW#Nid*J!_IG6YL{@!!W`&%Ab
z{s)BKO{S6|1Ofq3zz13$hIT<HQ&Tfj6O@^m*_t&db4wd5OA8B2hjrF}vB5fSbjCV5
zIk~tKJza3#Zca{Kft$Uz`uO|%Z}bcb+2*^Q=;!YXgCN$dSz~EoX>Vm^@9XO1>id7U
z<sTso3IQP?BLogYVh~0c#PS2k5vB?^=u<;LNFx(tQ!us(4Z4w_Axt2n)nNn@W3<lI
z$CwswVvXaZ(@&Sc81QnVKS4l7NXXO-VGNI9R?z=62q0mM<)@IP(aJjp3WYvMsLJ@7
z($rU@{gL4t>b)9V^)hMGS++!6f#ES(m;2RNu7BpOOwe`Sx>jP$)>>b?CL-2hJwzm(
z4GYYn@86}MMRM#^k?V{}S{oL6HcrecWVU8Jrox@JBDT&3Uar6r0&uxluDh>;`3mT6
z^?F*Z1ccdFD+R0eT?6kV1;JWkOl+8%nwkcyld5sXa2WI~2onj1S*yw(x09`p(O;FU
zvIGm=*mSIytG<3`fttWAz@voqkE8aWs>4YnKrNh2a#?xqkC?ed1CNRV(95dGhcoNV
z?{|q*gu}2fd)=6nT^S$BmK1?0%<~i}48Zh~0ZnRMkyvg~9(e+fQpx@7t`jKQLR5g<
zk(5?9(^SZA)(JCbT7h`VQ!#OS<$F-izr6L=U;EXbENVZ%SkcFkoqF{2+D|!Ez&g>m
zoXofT9COLil|ZogwK%{_%8zu*@CGT7rM`i#NGt9pLUgpIr2q^)&?uE<;uk+L3YMWg
zD51QVp&MRk{4JE<r_S|^Bi70rX*!Ozye6;O-+MoKX8h2AqG;;0wcO)q15RIe^qPpI
zO%1pjc9t!r1GKqc$N^!kSt?(9=@y`y7nmde;%9e$B$)Q|v)m{u3e97<(H*dVQ&U@;
z&ajKJ-%h*}moc;nJcccpb3!hcYU*;&Rg7yNCN@UulJ*GZPIYFCedzNUl<8_JFa&ky
zu~QC-Px(0+%^YWypt%ZrEJY*Qt7L8Z*O3U6N(P@eIR((tRa;8|t$PB@`B-ALB6^E0
z*pQ<VAnqls`w{zTSO&dMKRI1osS!Eq+P5E{SQ6LF=$lI#4y&!W>6$?&*0wfIo))9H
zbVgvN>zaETc=6nl&uCY|R@D_IVe;#tyCK1v;z<jqoA2fyjg6Df4foz{PCs>kbHlrN
z^V+IBRhD0u0qeakM}+c!5mGcXn^M^Xl&dZpnoj&2jT0VHfRuH(a~NK1flIg|!7nzz
zu`)iGUCD&coUfZ5hQ}Jq?)-z`y~IYR5nA7R{^oIxsVZ$`Z)K;CQ2p5j#h~TEw64*M
ziw9}*FP$&ih5qEQU|=r1(P#v1H$N2LDIR@x<Jw&I`~AO1O)o<?#%iq9J2%GcGJCc7
z-A9kIfq#y_y!-s&`1`b~rL1k7lc9d|@2&?O_)SSG-j)1PFxOL@8amij@fo9RV^GX&
zT5!-rmCftLAH>HsS=~W{k4qObpDlV`492#EL~Q|THz(SWSgGJ>cb3Rb+o|Av(BjUa
zd2vNrE3$0;Uj21j^IQVA$P^q##prBd4Y9JpMX#)EOV0t^oZ|0(NVY>yw;rB7bEST|
zVA1?V)P{l4jxO{0e>b*`O?uBVB!-!V_Dvbd8|A+TPmJYR_snhIexKiX=X=fkYd=jt
z<^I-V9dU;CtRT+G4uT<Q(*btNj^yqWjc2Q>zM1{C)_&{3P!B`-QgLvoa6vFR=-g&F
z)$SypGCXp=+>$gI?<;8UD_snb2Q7*B4VDd86DdNu?PXoc1y^B;l!E3lOMq?cbUAIR
z%6=7=$h5e@W0-#%Zl@x9vCyrmLa9J}0bI#Uab?Tsv>iIN?S1K;^MbLC!bN^|Yiz`w
zlf2swsfNV(^oMV}mhL<6IFWSeo7wj5R}S=iyw_4D?R$S>?!?=_2bO*ml=SR4nSQac
zYT@1c7tI;8N%DQdk?K3bo-N8~_M!H#UgP~nK9(EE#~HETpIp-Q;aeYZZvuWSUO>GD
zwjc_i7>P4x>yWVe;=_cMJAezY!H^{IwXc<OWWexRqbQRb3c<CPDu+e};)X?v?yLE_
z5q<!^Cg`1xA5#zh^(Q@h*p=nLObLuj=($;=*QXG;&l}$G4t{OY8-oF^`uTsZ3|H6d
z;cb`uul(TswP9!2x%o&>ChU$oBVfU%fzN^iVDCobSk!^r$ky7!2CL<>+~^Ii1H$sU
zFUR@&MEK0|y39#DU4|28eOInDOm{L=;C|nq{1Ep#E<_>wg{^BVZ|{8a^a+x{%`)xO
zqh}es05%GEdWp-<8Q|9{Sp?bzl%23|bAY*D2SH^I!1h!|aJ_MQnFOR{pAWbu^I4X$
z5i`?xdP}!f4m8LKKFrtx7>)D}J$VYO_V(>wJ&dkuz6JYRf!dQv1KH3iV2i0ZWBgNU
z$o2W%g#E;F*zzsv&m)1ks8D%cIH5-bTuuI0KZ4<U7GWzQ$|OzsI(N9t(LfcUQ$eBl
zgj5>+!+iG_NyPlsvIGhpNoQ{k3*=KFQG3$EL9L<qgs)Y(uarOvoG<7q0H$3RcEMF&
z=iZc`L-oAXPpzO+D-t-7N|TO1!fXa%RtqOw`3~Vx)l?I(2QI*!r6NGI6fU3uNL9bt
S8<)^eeKqcWDS7p~{N%qC;_QC_

literal 0
HcmV?d00001

diff --git a/harbour/contrib/gd/tests/images_in/empty.jpeg b/harbour/contrib/gd/tests/images_in/empty.jpeg
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/harbour/contrib/gd/tests/images_in/gdlogobig.png b/harbour/contrib/gd/tests/images_in/gdlogobig.png
new file mode 100644
index 0000000000000000000000000000000000000000..6e4327eb7483c523291f2c922a5cad4a08eba4aa
GIT binary patch
literal 7827
zcmaiZ1z1~Kw{38@Qlw~cw^JyT;_d_p?p7!i4^oO2C|-&cFIK#`mf#d9RvZe&-7Q$K
zyxpFA&j0TH-u+&(k}uhN?X}mMYtAvp96J)Mp-6yBg$n|K2$YrNv_T*gFz|a08x!~y
zUdt&D{K2$RRg?oEf4_5DixPn&IIc>D9v~1N>F*B;C_R%BIEV#RR+q<`#3mpW7OsW`
zrT~X%q4EY$Sr;cKTW2Up*4@?;YHRb@`z6%=F~r{Xv7)j%_{fIE8R&PZEGG@|nLEhx
z2UBll^|iO{<J*I**D3Kc<EvzD>3$J+NX5pEsQd4z&S$)gB^oht;ce|boM)kEOqu+A
zsaUBzu~X-HkFC6QSa`?uN#vlev$Y`+)@(5-^cVP5RVOAFC61!VG9!~2qu^NVAyLg>
zg_#}~1CFwv<P-eyw!PV-fXmC<Pj=a+8*qf563RU)hs*#?F>!QkD!#%FylSCWX9O*l
zr7W+yC`z-H!~YPm_N3#iv?s01|D-*&*Lxp4WP;36jXG-Mt5_*9pQSQAkLKeZSW#_%
z=P^Z8aOAtxf8_`X0D<@s8~#y8C!*L6&{-kQOGVH&V!>@=Jlp5<d@ru^d`GEw(W<kh
z*g4mQ)Jil%`BB>*FdvBwr%4J&2!S~ru_I2DIwsS*gQs=%8E!eb0SL|3ehWEx$%~!v
zh@~lh^IZ@KIJ4rep5J(+(D7GyHxmdH*T=+DwlnF%Ex>-iJ~4HV%st54eVLi=uAI%6
z&ZjzPzSm0U?ms1}BepB)bnpU_bd(^0mH0jQov#RuH9IeF)Nl_o--gbT=myOHrU7EL
znoU#vS>pa`E$F3=4)4<b{+GPZLgs3Nx_kI~<7KHF%I`YTSO(^G9yS_&@};wH5!yAc
zq-wL&ybb16EQqC2Pcz<jFYpiD&<N1VS5A3@o19@@arR78+(WZ^NW33$+<lU|o+oIh
z!dSkARW`yG7Lm_}jF6z|bXQwjBV}j*p0aziiaeAw4Vk$SaJYc<DCBp0W#kR4AjRi{
zM@HU!o{SYE(L-E0?>r{Msd2^Pqzghy``vwu3`(ds;7%um&itT7d0l9cmT=u#UkyvW
zt@Y`2*Q~9rZ7bnOIZ{BXFNM>;zwwjEb_obr+yc!1`&7kYnQD7#m#NJO<IkQxwf?AK
z@e{ofRF=Vnkw`2DEsYlUR0umB)V2%emnSwUX~)zjNk9v}ycpcN+8WzHUyr#pJXmAV
zBw{%mO@f1w4UfVUuZ0q?)|Os97<4*GC<=ezYtQLp&u!gj&|BBCzLOhDmrjT)^eBb_
zX%&oYxTTiah$!!H805ZD=a~MEw^d&2vSzTR1&YS8LEM_(U7JkaocOkm=hJprp;ZkE
z@eCiq7UR$e&RxG2j(ODU8+rYj9tKQ@1^Rj59iNpI*0y&Sb?{x&wW`;aAwKL8=M9~6
zfE+FfdJoY7eN&jWb-xVMy`BP#YPSFZhr^?6f6WbR2NNzm(&FaglZxv@lkI<({91?e
zjSbV6qa{NTH)>T1*{>%!`13UQrW;dR9Bng4<;h<*+!fi>3det%oyHfx{OPQ7J|mm$
z|KRBE!rSsrzvb1&`ep^;YmT`CZ<Yc?C6|}Q$)$be44yRcTh65eukgU3;S|s}UK(0j
zT8ZqDt><pHO)l1vosI1Q*?h^P<C@Wyq-bw2FCgre!8KBbIiVQo)BPmnk%<M9-;2R!
zr=b`FsJ6im$n9?}+?l6VN2|oaL3O*GnICvp&cI#3sTwI9yd*dFwb5fc?jh30pz&Rf
z520duvP3N0U~+c6q$;UL;e~EARAp>CT?Hs8$I7DrUWG9rl7y>{%T12=qrRbQ2a0Oo
z!^rz^Rjl4Nfw786QS5pD{bqY$NUhzE<yLrmxLIZ2aTW<BekZ*i*;WaUEKzKbLAx10
z3-06&loOL(WM&RGu@k#&3KvvmRIWv2u`IbQWehXCP9)Og<7N8+H`i;UMIu%mNvAGg
z>#7nDIK5NQ4E%Pl5O&!*Lz2+ri715KNM@vi<h>@YaRt=U^?THC#sKQ(4c~KNVJvt7
z;Y%A|r0qtW$0gA`E={L|76vEhp<-oLuTD4-)>Y-z*T7?PsHmwypk97)G5DnQg(lhD
z?+qWo1K;n9foyDTJNM2VY7!zNZ+^Bp4W9ZI8>CvTTr-igg8a5Njuh&Ns+a35_+JHe
z3y_~B5N%Ev^*vGkX)UBtMC#j02SVk29q7E+LUy@EVlKuIxKr{`22U6yJ&Bv#9^8%8
z)VQoK!=*nDq*jb{TRC<9*=U~L@Q^5${Y6sj{NuJF;fEP?{^*H`KQ`J2qe~yQo&bK|
z!?F}`f(o*jER=|OHz-7Vrunr}tcUhlX1d(SnUC1^{;rl9yr`)O+kfUpmT-}=nnqSV
z^Ln}@sPR+F*!b!%1FK{I<4&x${(j}9gI|sQ^!{gB9eYM^@A}O<ZcqB?Z|+CE1eWW0
z?kgXWoBy~CZ-_>Lzvamgl(lJEaDKJaBCiz^wNWJ#DL43LfHZ;TrNk7?a&!qKHBZ>F
zBw66sw`MWCBn*|ja5@#A9#Wa$2e?VZKzoE5Z4qowZK%VOrHaK8ipuhko#9W*mBNW6
zdKJy4tZuX}J*99AmZd771k-QG#!j`gC932&bXOJU+D4EI>76S5h>^wt`U4F^1sg*}
z30i+;BNxvbMP3-4kWi;IS=I`YAvocA6m*^O*Q7x|-v=cXEYng-cJwaFBydhB&`@nj
zfZ2SIn_5jIdELxzl**!{G0sTTJjojbf}s?~hVXv%;D3%u+6#33&n$6Dd)Syxp;~qP
zrb(Hu%a}4)$%zAKJ=g6rdw`288qTh&@-V%YPtI)cdUAFxwm<jPTKQM5l(I=N`x1t<
zPXtD_Hu|m??4%tDmjnfs|7zec(ZB;7BxMMX_rk}PB`P|4&9~+2*RpQjwR7JU*LgJ1
z7sJG|m$W=St!8Q(q5_ib$EZKg_u%pI@zTM)RN>vh*K?v%wryUk=mF#756;M)stsJf
zoD}a~C%-9ObKk#j^dX7s3mK%%0tM}s;!@&Mf8Md8e2o2eHFl48M$ot7A}`O6;?Q5@
zeRcJlaWOY~4-b!VJZPiSLd@H@w>@A7AM}ec7$~TD&LPYIz(0N`?yxrj5*9FxEi`pY
zWn<W*XV0D$`}tiCkZdF1TPO8_K1KrS_vF5ytLAKx4MDnRZx6Y$N(EfH+wM>XzhwXu
zk=FE4P<SV3>L(3Dx{K?-iO+85-M-E;6-Vj%xQkt=ovKz~?<kD5fCSKDeSIBWje?JL
zFqwC9zXX><1C-u_^I4g0(mWGLcQTovV_#J~LjQ~YoV{>TwyNXZW1naC?7I%#N0oVg
zDeHdj&}Ow)OARdBq5z7AMCmj)VL69+2})ygR>j1`V0e3ubgxk2rMi3_C)4e5k!RWU
zmYe0#T;Cqc#}PN<sm`H{{xS4}vyg&}{GExN>vzs)F2IUEa+y~BI_la;#|-+=g&8ze
z<{|Ur3FT9%qQP&Y2bW|MY;0Msu&ru%^+7*<NH3Eq<ZF@9%3Fe)i~PIQu%M_BBD1^u
zgbVm>?FfrV1)Z#$TfFb<fYr>fJv_la*om6u6tGh4=hqdNOl)jejx)RZFIaZ=pC9E|
zE(OHQk$;nPsFhE0IcW1DONI?ntW{}F`ybsNp@0HK0t5P2-(!wN%0y1CP=@%Q@uEwE
zA<(+%MGR>$nOhx=eQ}B$XPOeao1M}0s(c^59yM~zvFK!Sr5gZWs!5D<U-5Sb4MB3Z
zxgpsfB~mD3eGbh(O|0j|XIcocJs$<f0el0m$#$S*$(UN(KDXgz+awCS;Qa@IO@Jnq
zJms67@4<how|hCQa$^u>TqLhk)P78rk$!y2#fLQwzB5U#6o{b*=nG}jvxuluQ`Ldl
zLUm)mDu`B|wPlR~4mC9_JTFh?)gq+fvr~bsUA#wmxyaqxgti(kXvyyc<90#6?ZJlt
z#_Ie=mt1{A4X>v_T1|bG*qWxK-Ay?7J5C#YWd2~vKd|yQM*IU4dc-t_=q2JbM6`d9
z2=^Z-_#NN>^9tp;j$mqR+N2Nm%F*{ZWZAw?O3!`ouZFt9cXY=Ne1u#ipkNuSsR5s)
zO1JoS-ZxV)9WAGj%E7{r2LROlgLdE?Zq)zlFMv3ov0sj5DDNge<k?S7s;lb$D>tO~
zj`OC6BF|{#vcMb-lvx%)Id$#3q|6y1z@8hz`n_aZFO*P)9W3*A`_JIOXn(NG2IB*H
zYudWg-B^d${d(A)G!CucBDd$H`1__5R#ekdscH~bG|LxelD`4?e_OVp!g!u=;;m`U
zScjQ%Ki*BqgT+-G!?DIIIk$>>-IKeL?(l*UuNzZPP-hiGo)f0=h;w`N&=CH^hwC~y
zk&C(g7BLR3mN2JTygeW#<8h3xJZI9v5&Y@f?X8eAv!#{O(nBiBu2lfw4PG#+x|zF&
zel4+Hx>UIymop*$W3K1aSVVL&K6h<x5<e9bKA3}p($mvFU#SByRaj_392yP=e;|@3
zwrVy78Pu{0@9?J9J+KEzf2Ozxs}0Lw``b<P69+MO^aXuUv}qmzs<D6*8I$*4%NOuL
zBBNk>Xn@NSfk+n7!-;p!?L?sBvT_9ghITKw^_!QyMpRcq*`*L?AT4ZEz<(VUE0l_t
z9=B5h_}B%mL1ER|8F*k1Kp18HY~ByL;$iyw+0iPOz^=eVgf>=-8DCTsZuM)O+0`&1
zG1QxFQ<KAOIZs`TnwlC&4-v@MpALP6p$D49OPU;)qUyYV;xjrsg$9s3Ab3FW@8)<x
zz`Xb+By!VVZ^IVb!P8VdX;15~0QZ;fnf*B#Iv_q}IpZSc&U^)(y>?iQ!*Xt<HmjuY
zte?Vli()f)sA;FKspJ;T`z9xs4(4?zrKd;E%9fQ-1=Ix`GGQ?>_%C5*mHKcm?*kJ`
z5$om6oLv{(`r$fnF!FXicSIs`#@Of~+nbwB9)_9A_VPe@55@7&$=bO0pX}0%jt8YH
zj4eQEbVWEd6&Dj*TVL{v*bop`&+HNS4z@nA!U8Enq>ossRR#R)(0ON|QfgEVuoX)B
zY!GPQ@6{W*y@HmI=7qzcm+o%7^8-+yz5QPd3p0|7NztSrAmN?l&uFmSHioHQN9WN{
z!zds&o!`wbUBACJ%B(0Z=HG^D`Gm+$=fLH?O<{WNHR!&G(+$uizC!Wb)eb#Z*yTXk
z5?*s=%M?2qHj8tJWk~7q*5;-KeJk}v-m&6Cv#Mx$W;QmvjfK^%7j|Sz**>e05!07(
zJc%sjpC@d4J#XmZu%<7MEUZ=oh8j5D(EtfBDk@{U6y_~2@!fb%$kWTyv#952bO-A8
z%L_pNl;@%>ZoB8Nf1YhKY4@<1U=#l^eN%D4Q5ao8rGEHy1EbmV*VCR$@N00<#3QJ0
zq*j{Q?%tki)Y3-wO-z9Z%45kuT0+4|RiTsB)w~a6HA?Y)RjYPDDN)>zd~EFZ<qb=6
zGDfc)VK`b(PfyfK0OLa{kZ1bYz3oEn%>KwluF7Q~8K85gaCgOqx&Bvv<Gle0M%bsa
zR!Ta$;C@KdeXucJ@>3mXMdruWv|YzNi+bK^)~SSj^}hEUZQkZPq1`Lk28S+f$B?eT
z@Ij&Smu=Gnee?5*c-2;xxy_M&;~4x@-|CVK#*B8e9`m5j`5!oR)X8E=5&#T6v6Ip*
zp|!1n(53AJlZFuM`uaNWu)7%o#EL_DW&LS<T3Rl#CjU3T4Q(#fQ#|(ZdAm6rNaalU
zkVjPUFcG=e?ef%7ep>^t)fV(?p%Ai!K@S2DZE1MIse!iRhHQ*LtC`EFpDnV32dJce
z#}R0`!P6%)xghM%U`7RLKxt?RBQTeAL;YPwMOSZqa=1OSlf*OTI;3wYn47aXZ2D3n
z#F4qzk2Axl)80tFsY<I2&yz$T_88x@l$CJ;@fQLR9%+w{&*^{h7DT*w@nUq^`F-hz
z{g~M4N2r<pq)yg~?~};n-0XI^2Y@h`EDB7Y?sq4&GdbfN@3`z&XapcFtQBl7+Q1rs
z6*D|ryt+a^jQRO_QT9Gd@oi7RO7n0et;TwzEz)VAvA`3?7$U0|6T2XLw>Zb*NuY)o
z>_GCV$EvfsH-G%HGD{>l(0|2TdR4Z`Ih3oJ{K(wVTZ9JJ4Yfn^4lb!B@AgANF5_4e
zMmZ@NKvO>paa=Ti?#5WbBgFNna)zsCC0=4BeOjP+Vh2AhCIt=zRFO$v9HhA*`qi)I
zXRLARMW!tME3P>k=j8H<cGfzi5|@Y(7InoBP#d61LLkCa=06U{^?sR6vVIc(`5l_@
zZ=(KBo&e`C>sq8o63h66vxO2<u``5@O5resVya;O{Ur#N!OjJ;5;j2+v5b9AD6vcz
zQx$fEQl8>+-1!?bY)f>Y=f9o)drvf$zeoJ<!~WYj61R=w6R`~CKcj1-5*BANL;QA!
zLk}yr;zrOlGR=~I(zmA1GRdG3^k2QF#kmu}5OzjaGd@3r$i#JC_6R}97`}9o{?94?
z?>GK;s^4om#!?ePbMl#3sNTPqQ<8I)^OXTslfLR*WA4Y0djt31nL(KV@^$K{_2`Yp
z={Hg;cJ<&wsqZSGu}Xj${<+8h&s=|O26X;l6Ou2$g42m9qbx{+9roe-vJYU*E^NX2
zM@!XAxi?%*ZcN9{*M|_R{6j!ti)0fV1^=<deQHi+Pby%E2OEw8*oFdCB*1R{GwOd#
z`|mvdweRm8`*+(CUbzYuGBf<#R*HO=&qVUz5e*S=+8_+rbiEbpsD2Bz?R!9TE5()i
zucW(vd-(%NXKQOKy;WbILAFFBIN5h@uyHf72d{G6dSCpJA?CNE{JE{JkIbq{iw=4y
z3E)4(3OOZVfbYB9-w2ly`~^B5rZDeFiK7VyveXxfC{lCD;MG;DDW~QIXOlL+M@R%c
zG8m{L7*fjSbz<`s<5nX_{4hnccsB-`8eOW1od0Hm5sd;862W6I!l9v|V&0;etz1`s
z6kOa>A*Y$OljUwAw$Dd<Gh0l+Yx|yF?JNJ2CtS3$@(5l)e=!?BK@HMKiM;jP`(404
z4sFDT-Bp~u9!{Un>EnO4^X*Pjlk<IJQ!#N`T3TuQ6YcdrMr@+orlttY^g|IELYkXj
ztTA)1(q|BzWlMbkzn1_l1LBmmm7mEJwEgtbTubP{I#yBW2zH}V)Mc?GdgG;%+&F=F
zTzbB_x#<d@KFDGHJhR2&Ea!aLQpZ;WN5OO^lp#h3R7g2JJ-zS#LnCka{p{o{mGY|b
z2@M6FdhszP(l<S$9B1ATmP81^7T{HJi(&rI&X@+Lg)hEnALuJzT9?@50Mh69)3>{3
z7smVf-dgRAUdmfj?S7?YoRq<ZPXHFNB=Y)?5~Vt)!Mw@V=TN^o+NsHh@RoxiA<;(i
zYh>ss06^0HH3t`7*b~MCh*J07d0uT9*4xK94TUN?P&Nf!_rwS2C;+lnt?)(5q`O^a
zS8&9%0X!itRYmAvV(lac=nk+I5WlMjF;St(&z2Hyhc#YKPJEHYeq}bG%s~SI4C)%o
z+481=M=LA)<OC<|wX^RT$rLpifgr&Uyk9nu_UW$J*(}@1(b8Q7L^nmTyt3uieR8u*
zX!lH$?ECN~efGVBoR&u^W1Ini?u^a+wKX;1+9F&anFBIN{7{!)2^v6`EX&G;T?ka-
zEw!|ASxKpBYB+~<${px|QV@Ugs9aYL3UC_;fiazOR4?_R&rHQscU?84`I(y9e7N{?
zYRv9;5kKN)_H-$|0`8kr^%vxSMkF!&t*tBT!Z`rGDd~e(*;t33N&$LEL9urJk^GEk
zQD)=Q?spwb%OQ9MUt186v_@zo>7Ym;Xzbg4P&VHWvI|h@e|uI2R8*dj#N_0#W}}VQ
z4+wPc6rKZI7u?>c=Yh^1_wDSuC1OZNYZ%Ea`PCkREb1Qu<y15nO`K5SQ-8>A*N7)f
z&4emIGiQ8V*z@4_`36+>Q5N+^-3ss9{Vw&>sqCSmv;o((+46PBk2A(y>03|w;vDDn
z+}s2L5QmlH_nA(=nhiaYjd^N*0kj6U)=i|ht3uyYmt?FBh-%fqF$w97b6)|kBQwaJ
zp1!W!<l{R3U*y}+=obs#t>%AO@$3-T*0nyV5X}i@MG?lrglq{v6~c(Uo>Z%=E>VV`
zt{7b*cb7XO0^-an<Lr?o5z~5S$HFwWQ>XXYY~4vtW@<)7cWz$`0nNVKxg8I7$Lo9J
zoYQ!O2@nH74CwYNkyW9UD-3HX&O19@crL4uoST}Fp|k#OE%`F3o5miu%Cg&Bp+!Si
z*Ve##Ql;2#nzSBiBfHr3$^LX&PI5hGP$-rpLwwZ?3n1gu;w|K6M@SBQ&QCTrHaS2&
z0#FxJ5WoQdUaPB)c4l&rC_zC+*2{CGjHdoqO--%tmU)w_v<I2d=d!ZrFZ#AzMY=8?
zo!i-Od(C~Sw1<iFP~<j0CnF=XTIhC+&wz=p-e*NV7WNi;Dt?XqyV|f|NXckq6}CT<
z6tPJzMTnXfZr<_}2;!IUi)x#iX6@br=mwPFQALFG({-)FOFm3_+m(RfJP~*Y2lk>~
z+<8l9i61}KO(z2~pQm*U4H7e<KrXej%4A0y(kd)|tt7)(YoKLf5}G#qYzGsFH1HS&
zIre_dy7^rk+YqoPqFIDXuMx1)K{4dMhyBk+dW|9-A?;Uy%(x4#Oy;9U)a>2{ItJj7
zN6W)6(lv#O?w-M%Xy1={E$aK3w@XOA=-YNz=Ng)*tA;9XA}kyn3<rGSg@4KCk54&9
z>w3oZ<!{&2IqhvWtw+4fQP!BKwzi};Q*e3;Iphrop3MNIlfA@L%%;vT|Dzb76<3x=
zm(p+k$a>yQbp=qM-!mc%XM)yQS9jR(7djp4{1_UFStS{@-#&nm5YzU;SIwhP2nh{S
zggmtnK3~sf4?Za(JIX;%csMy@4A<z&jyb*$R<^{9_}_b^i`K=>y()e2sKSVDr~`O#
zaRNv!C5N?b4bDB;Y^@TSzRb1d3p5vF3W0CM(@5h=J)I97wxMZJeM(IJ&58kE07)x~
zR|b&$1(dDr|KgMe3v#Lh5HO3dFg*PvILcgDScuu}Mg2vOtL<)FwKT-%O2<lYHCews
zJUyK%)6pqb<bmJrv8C8a+6XtoZTvw#i6T{;T&4<k7!v!unsLr@|8)9G=Y^B8YxyPS
zZ?^;X%eO%sC=7nPW?I^#?*jvG`_?*dTd)G};moXuOGMkaNr{Oe3otM4ubL%B>(h5d
zW#a*CtcUqds}ktaQf^udboc89^uF5+L&N@|v$KX`sqU6mt8FzOPk(xSF)h<yhx9D*
z6k;*@Td}88zirV{UKAFLf2~Pnj|<k*dslnZ!c^AKbkd1MznmW@@z%)(-Eel6pAz2y
z=H(>kFV~$rv2%RQMj%BVjZtKF`*E{Q3Sf~M0c*@>zT$xTUwDonK}SiBJHo6Q73Gnr
z5dkvPK8Rk_l=bOHDpKu*hv+CmZ%UU>d|Vxm8z2OizO7LxGH>I7C6yb~>7EsQnbjdX
zdCXe<tz8R8$!}4IaA_coStLtCP2=669Bql#)BRuc<5wy%3U%f!9Wrbj;WK;k;RUL2
z_<4+!KDMl^tffb`1D{o*V(AJd%gg%<Rc_aWgfpUfql*?crcvgNVd2HmB;hXreYm^1
z%&)2fr%z8!m2+$%5|P)MG%?3xYBC8ZNCre*jF~)|sioYL)Ee^N%GG$Ixk^9DTK|9*
zApXVPuAlp&Q7xfMNB9IipxVa$W>vjhKT*Ww5Sc>iu&*JLkOpoAG`FCa`2r=MKIZ|f
pRVnFMnfd?4J^v+#+)t21`{)=|{#{Q9fM>-ZWqA#`3K@&H{|9up3E2Pu

literal 0
HcmV?d00001

diff --git a/harbour/contrib/gd/tests/images_in/theclipper.gif b/harbour/contrib/gd/tests/images_in/theclipper.gif
new file mode 100644
index 0000000000000000000000000000000000000000..dd876c89c79fee5941e66fe8d911d012404b1283
GIT binary patch
literal 6200
zcmV-87{}*FNk%w1VO0T}0M!5h3}o>C{qv-#qyPZ{|Ns9BU#2y}@;0{cr|RXO4kOR>
z=5E;RN|)AretZA@?^4e3!OhwVI(~}c=l}lr4}I?7=Ie!_!h4dqJ!F+UJURxr=Mt0d
z(2JDk!p5Dp%+A~6ERMiCd$aHC+zCRvtI6H-;o@N3-IeC$KGolU%H+B4<?r(MY_{a@
z@9#CK>*nh9cjMjf@aBKs=_+dBSy)*A{Ok7k`oF%ob}3uW&daz>Tlw(u{P*|`Bs}2W
z*$H&TA^8LV00000EC2ui0965-000L6K!R{cEE<o<q;kn@I-k&6rUk89uh^`1%k6r<
z;PAFFn2OKnw0g~MyU*mo?M<)S@A&*ZKG*yIfPsQ}Gy?-vgNcfZjEzYdhK`bxl$CCf
z1D2YboR%a|kUdsDou#IyUmqV(h8b2F4XCoSv`Q9Lt*-;IwY|Qk78ST<x~{*+Xbv^Y
z%+1cv(9zP<)YaD4H6#|;%!Uoz%a9r1<mKk)=;`X<Ny_W*@b48N<RaeW;_>?X{Qdmx
z{sIbQ7QzF$8~4EF8_2Ms!+iiBN<?RY-ob?27EavAv7@ty9z#a^Pyj+XguC#S5y`S;
zK#(p)#t32Yq8xHPR>s`P^Bm0oo*OR|FnH3?4RWo3DqTA5CsT$V3e+UW2dU1dSeH7@
z+OI-^q0lN=s|wB#4X)1|sC9>S;?}nDLVS(!ECz|OMy-BRy0)+1zku1ojrVr2ItyPf
zK)WEeS{xsGV+Ni~xw7GOg)f^U`Sq@|8yK#|DTlFR<<qDsYi5T;@M?53zfNVAfv96c
zq*HQC&AWHt*VHltzb5qSHfIfbG`>BcUTKEDqf7rg{F(6T(@1>%`oWpK+0#aYL%A3F
z^z-PkFT1Y3?sloqX!Nkn+-7-y==1A$t(krMW^!$J95V<-uv|5m*cZ@#4CV)%fB)4G
z)q9@NHUN0jBsgAP{4}`#RsbM|DB_4AdZ^ZF5VptJd&mvY0}C19w&6|sFi7H!IOf=(
zVJWH?;C2i&W6uBuRA`Mx*r0S2Jo)A5<daT12v?8QA@&|v%oNhY4|HLJ<TXmZgC3M*
zmWkteZBYr_itlx|3`!AzpwLy=kcG~4X6C6UiPLeV=4!EBSwJ(G`~YK&<A7tQInwRv
z=%XM?ht;2&S$SoU%fzvzn_ki>8i(aX2kEGgM)wq@hCv|cS40g-B$sn0%1s<1Fxnfb
zxR&ahR;@)CO$@7kWl{}=xcGydu~H=?IKJiTtggH%g(_SO1UqOAC=C#Sp(@E*=d#$`
z`s}!m_6F3nXlWP!tVNg%@WT%k=5WoIcr_O;Z{+3+EowZWn-#FuDkgv-#{SUQ4fkc}
zsWrvki<-U=?`v61{$f?FwH~<o>JPLfEDgN~f;$bq5tr;}Y83bCD>D;X3qc%)yo)J9
z0?fN`$o5i`n#nw$%x_B-FXffBUu9eHp^z*YvbQ!f4b8(n2Qb0ZR99{F1W^ZovPeNI
z^`o`zZhTjmN8U^g$js~<@zrd%&34IKd(?GLEfY;}%<qbYiM(Yyy|grHlk4{2gkKHu
z&mGOZ)6hg05W(GBzKbovo%(&Y*-(#L_~x8fO)laaDIU|;*5*WT0W#OnZsk__oq4XE
z$1eN0pi3nGdP|lzZaUtE`fxYvWi9;rsInJtytB1Cbh}7w>P~RvKX_2Ai@<Y}R5Qar
zYW()c=XzS`Dz`_v-2`v@t_OEp4h`DVl$QOT+{fQNso&ckK6be`UclY&zB|3y>jR)P
z+(#K)$?t&klNey^cLe^trg{2%UjKe@Hvu|>eFM}@4Jtz_1bQ%mK2weI?l+wA5$$n?
zfZqP@7MiAkBL@lLAn`s(!`RVJgbi69NAjmX6l$w~J~V`4T*wXbY_Ncks-Y5Rr$E1q
zuz}ctp#FA;x_1S!2Lt+B5xpTp?Je<(ooixWa!A6}n9zB=`@!x8fB_?2PJPipi2%B&
zCotOoF^uKH;Y-SR86N7d0H%YU8t)bYH-^W8&rlK);djSI7EX+78Hf%aBE>(N&V28J
z90Lp~4KlzH8j1{z7ad7Tx8-p%lH}uH&NxLwR56nT!@wrLm9uLMOb()SR4I2kxDftk
zk5GJ#AO8r*G_KGPA(-W-YFV!v07jRNgaRpjxj=tRk|C8Ors*bl%mFY!ne|eXQT_r=
zFm}O?)O4aXRf!f>TC!kPEZ;ZjLk;m<!vS%~0XgfqL^OOcon!3BH3c$EVy;k-K9nT`
z=y^zH>MRcX%##w`pu{~*3?l5rN;VB@2uu#r5Z_!VE$;=<zA*BGcBr96QTdOIKE<8?
z#B}8Z0~u0=c2Z=3Q%gzJa#959frcynr9KAQkAfO>g|DQbArvaoW!_UQ#WJZxw<iFr
z1>%Ex(jz>Gx{r+>HH}KWP)$c#jlN*wL;N&e252xfMR+i)EG3Lfz4pftM4$(2bP--r
zIKi-nw5j1N>srpr)2VK+5EEzw0^usucW^ZxMlHZXD{#vST2_z;{i{u*Vb7cn)<uOi
zll;ig2Syx_vDMt_TzQhsf^<n^mW3QQJE~c1+)}Wg&42^a%01Fb;<S0vDrQ!@6BAy5
zQ<;iwY(0v?WQLTJam1-J{vwXuiZ*^i@a-hz7u>k6<FV_gTVf8h4Bsi&vdjhl>0hA>
zN>Dw`FXG^B@rFPK0aSv!W)iMXh}#mzjW-(qQ!ZY6kkrTZ;IH8P4BrUk-s%1&CmArT
z@rXbMUQi-_s8#28`OA_YF@U_yFj@tB5P_ujH75uDYZjYPthF{k0E=?4Us`e9?G>TI
zn!s>=y^9X;qGLiK7?w2hnnDxz^<6n(>Nkh@3=stQc`k0i4Q?Q>z|go%+%rNUN_$`K
zbvL!c4dzpZw%KOD?0H5$GLpsmS0+b81PE(D*v^}QI@6#5amc`w_e|v*W!VTx<Aj%Y
z4CWql*drmhK$oTg+aId=(K$gd1KdmvIo<%qa<21vH_hozXMk!*FiI!?23;l|o5RQD
zh=GvnDceW8TD@&fQiGSF79Z>x&zh>UraR5+T_pAh=0${{LHHz7mjl)QFt3Z!?CSox
zNYa#^2H9l%7jHm`YPROHwzZvuB;4{8+aq+Lk9}ySgo4@4c6J0LeJE>8J8h!0_LFRk
zghCj@6vU2FV^4jA7T~&8tGNMz(@k(~Ng7kufFX^r7Z`;%VBQl>f;UhR?o#iY+(s~(
z(hLIvf)jjy&iyNfGPv<028KKkmz@%B$>mbyTSpgXO~yxDv%!$S;~!_U$gQVAT8k3p
zIih#HBQcAY-^ke9K!S+P0+$%zJm&`=c{H9gnE=SqNf9SN4sebC>s!)*7Dne&%#(hE
zr9bB>EO>gl_ZM}Z->2$UH%idwJA@XTmj?DlLJOwcZ6yf12!Cfo*hhr)YbgD^0LMxN
z)V}r<OM21OAmB6OE(aXtfbX#@LJnYo=Q;PF<pel$5Av>MGZ>)(Uq6BXGSGJ~3|>Tq
zx5nXP3yT{-<|zzde6s<0a0aZJ8j|0ql1Q}q3eq44ZS#SYfBgufAS@>qCO~D&U<d)M
zKJPxjMCyxBi0Dgyccl2j>mxOG!<SvTt5091GEnoDd;sTmy(^Jj6oI?;{`c+cc`hk`
zgAv8xyfJV!*+P0pkY_|71=}YM;iq+|r(E|o1P(U@*;hgTptl9ZBW@Z-4zovl6|`&Z
z#}c{sXdu7>B+wo6w_Nv!4HyA;{5K+TKm#`rfR~47Rx^DAuzf|4EekjV>?Z_}5O@kl
zdzwcuvET#$0}BH{fak<SWD<M9aelqlfh}=!M@E7NVs?6kSMqdl_?JQD!Ge6?f;Y%E
zct<rb(*P4-gg8iF69;(25PF$F1VKmxEr4l0Ffe`RZ+Alj0mch;7I<86flXL`)v$q4
z=pwf#5*_z0BZyptGGa>hO&CC8DR>PlxPM_NA~19VRucooA^=iAFjX}Kd<ckqXao}&
zhb;gLRFDJH^MFGzFuO)DbCv-MxQaa>Wm5)-Rv?J~gGe3xHgkt~Hy$$)X=f;o=nN3>
zJdxOY2Ulj#aETEW0GTKvcUCn5_dIt~Rm?{K-KT^_pnP`&fkf5=yhs3{NH8?u1O8TL
z4bXaZ_djcR1-=L+PACnAIE<he5+pblJ<yEK*n80E3^BBS)MyAXKq4`~emRhSqUecb
zz=_?MU2T|sx;AG?NCf_7I;^+^dsl%<pnNn?XFG@m^{8*-W`4prjC;5XiB}Fj009sH
zdGJsH0eO=MHjvFwkdp@@ao}eV2{{sZHNb{?Y#3YX2zE?ZY=qbpP{@)!5H_}W4i-><
z^@jl%5CRrp0WwLG;9vn!7Xn!M9#(0U?|}jTE2c1e!GZ@l0Dd+#TZd;u$u>>kZ(K)Z
zzp#`j35*(e1VPA>6gXuK0B4D44G>V4h*_3csg+zglhqIdAtjcMW0hEW0bALaGMSkW
zu$7kCDQ97F)A*AlqH@SUk2Yj+d?|BA0GOLb10sNW(NLJo5Ce%>o3<GNi@B9u$qW@S
znP}+&j_D5zVUPiEOK;gZey|FHaFQ^Wl7$#*tm%NNGXTmbXAN+B#aII$-~knZ0k`>`
zwTYEh$(70255w7$Au=$dNt$_p0m6_4@9BDa*_^3~4H6ffw3i&HH;V`Z3wOqT)9?YC
zX#p1?p5S?)l!*bB*_g7K4xR*>esLrJ0<fOQsRb2K0V`kx9}u5I@BtZG1RN>^D*ypU
z;GspponbJaXVR3>aG&_eYZ;)0W&vR$@R}k3887(^9Z&)lz?}u^od_DFxT&C9c>^+8
z4kHPnQgv;amjxGqn+8Gzc7*}TDFkSV0VFyEhY6xti2+5Rl~FnbSed2riAVOxqR`-?
zFAA7-b_3n_V%fP2CBOl6$^jj)qa|Pi7rL1SDx^YMnOg~*!TAg|!<Jarq*wp}UTT>{
zpr}RQs1;EJUP=T6TA+>Ur6lm7La>!7dYZqOf%XZVYr3X(28ucA9UPDVs=BHPpaVK^
zrzKDV0nh?_3IQI_r+ylwSecdomzkL#FpY;=p-KP&pKt__dJ9@QsmV$JBoG3US_GWx
z0hdYu6;P!Fz^P!soGV(ND!H1Y`mK;d4JDuhtXi(D>Z)`at2-bB7b>8(imSPrtGkMp
zmx-B~Spl*$qM3P_xQYaaNdoRksTiQC1h4{EN~Tu&sJQ8@M6jy_YXNB4sb<QQ+$wvb
z3a;RKXS%3uL(l=_YOWw_uINgqJ30g_(5^Cht3VpBEZed|>aSQzumm8JGCQInN&w0_
z1Qmd=A_@UAO90kdnoNMPMB8am*#I~YvP!$OsyecE8mmNbvb72UVhOJ<d$na5sKB|Q
zJKzHf@U>v8075|mVOzHUW^1+(8v<v$wrtzBZu_=y8@F-`w`y9nFB+BBCjb!ewJOlJ
ze%rSYzyYqxw1iu@uBrod$^o%j0_z&J7mBj=I<Jz8pbB~cmgxZ=Kmxvcp)0ThcPh9a
z%K>vcx};mWrhB@mOScybl^5xbd24-K_hPTBw`}XT2ynZ&+qY*+o)}sJ9YCjpTe!kI
zyoZapbqcGCo4h5^1j&1+zni#+yR;0z0@O<aDv-L^o4wk*y>nZ)v>3bKi)R9Gy>8pL
z2=KQmfV&8A0_@wq?(4qi>$V;+o|r3>7fJxJ3cMdXy!_k0{`<eIiUBh)zymzJDR96i
zkiH0Tz$qXB>$?E|5AXmBAOkYsz_`o37@WZvoCI9As|{cQ=Zn7To4X3UzVFMv5+DIE
zu)-|d!Y=H>35>onEW#^WoAnC;7it5s>I3=<z&`xL!;1qrAixAnz!U%iAn;8tK)npS
z08Z@0F+9UkJjGO8#a4X9Se(ULEX7H10w(aqVEn}^9L8i^#%6rRXl%wXFv4uy#<yFQ
zeu@D%%(*<U!*?3JK%B>fE5tZJ14LZF2kgdzJjjGx$cB8#h@8lZyvXXC1QLJ(kQ~X9
zJjs+?$(DS{mMq36z{t0o0$7`%7hu0RjK7QPyw6Lgdc3rJEX02N$1H%roE*!tJj=9P
z%Z!`^GJwhdy1dK0EXiPe!oVEN?<)b5`N_ArtBk3eI9vfXFa&k1yo=kA7l3DyE4f8{
z&Dbmh!o1Dg+|Azn&EOo);ylje?7m5`00xlG>b%bE+|KU&&h3l>>5Kvk@W>RL!uXue
z`n=EljL-3Bn?$Oa0$s0LS<RDsl{H+JG_lY#Fai!e0ss)v5<SrrUC|ZI0R5cN8okjR
z-O(QX(I6etA`Q~#tN|u{(kPwMD!tMuZ2&2404SgV=^Vi(K*2VB(>R^eI=#~}kkIva
zTvzY{BtX62RLu4F&<<VE5N**+-P95NP1GCJEWp!LUDZ~7)mWX?TD{d=-PJiQ0VU1S
zVm;RX8t?!vEzb`i(-OP@^!&tb{nl_D*K#e_44{}0@S~L(v_<d%EWiLW;M9N}*n&OL
zEHKxGeb|Vd*owW_jNRCBO}$QxU<O^8=4%15i@6@)q0MXsX-(FiozfAk0ggS|hrI!R
z4FDrhe_}ac14fw(x|QEF*s?v_O}zo6ecQO5+m79PlFQny%XxRXZSbfDo&DKkJ<|pd
z!OFed%-!71{oK&~+%7-?5j_Gvebh*u)U>_bgY5#|?E(i7-qAhY<Xzt8ectB%SM!<y
zSQ(>Q=#H{0m$tVF#ckXyeE`Xg-ukWIF0cU<K;06Z-2%?t1U}mou-^!t;0k^KNDKo1
z^UB)kqiZjwZ6(<Y53m6kp5Yq4;Tx_2_?_Ph9^%h!0RCOzCQjfK;NJi~(FZQ#E{@&|
z(BQotqaCQRQwD)T+XNTR;XKaaE&$I!9^^tk<l)`lD}LfgZqfe@;1r<FE>O`QKIBq9
z<?QSNNc`XfRtDk_zT$fW=a}PFZ~#3%<{3`qW`5@C9NtHs<ZK?%E4~5mya5zV0a1?T
zR4(IyB%_vfXLtwZcOd3u-s5#{=XMU>={(&VfZr;P;Y;4=j{fM79_f-k>5gsy2Vm&#
ztm6Nj=!EXh4E`1JM`RLymtXGZbO7jq&gqx_<DGuymwxG+KHW>M>6BjUwl3-anx5#4
z{^&t|0GmGOQ_kQR@D*83i@?3H!)@w|;Omc$;o;rt(0=H&PU+Kr>()N&8J^<lyz1%<
z>8uXq8}RM#jKp#g>LUi<;Hd1J!0eA6-tPYH@E-5-KJWBi@8P}Z?r!8Mp6~u0?qYuJ
zx1Q+s?(Oz|@8rH6dY(eC0E)Y)?#RIIvku+`Kk*b_@fI)fMGo-SF7WiO=@{?sS5E8+
zpNk_2-(K$U>MrZCZt*PN@-FZ0{vGe$t?{)!@f2X?4o>W}$9bTL@;+|_vhMFMKlDUz
z??TV-G(YJ_AKv6{?jy#B@_q6@KlMn!0v})RR{jG<ZI%T90#{%3L+|7N*`D-`uJs6i
zf_B#BrB3y1PXsJ5@gT7E;0Xd?U-Yzo^!iTeW?z2^-wK>JlCleuZ9n)-@b*|Q_d!bc
zb?@@D{@vC7-+SNpTF&#yPWYCu1y=vvn(y5pAfyDE&;_vhqCfhiU;3s0_%i_Nd>`Q&
ztBY%Y`LLe_nLqlSud5%r0&rY^p>O)U-}|K>_mkQ8u8WtkU;J$_`<q|;f2ye~@TB$k
z1HK>q$xjnjDfuQZ_{N|8X@LBi&$0tc1oK;e(qH=2FMqL>X@URx+Q0tWPx~#)utVVd
zyC40*FZ^A1<LsaRfx!LV4Ftc)kXSSxKLjNKGAy{DQCBEbi1d2@1MN1GX*6!P<(OPH
zpV4Xcn%#E4;c@w#Ubl}~(x~v*?^ni1h%kn*wzPV>z65S^?j9i{B_}B>EiLo(TtNJc
zFfJ@YJs<#=DhMM6x-w|MZhS6dWoKz?ZEuw_HLW^_AkaQ8h%Ov)jgOI&m2Y+R7<!39
zLZ>ZIhnKOlwYRy=ny0LLprJ85y3f(m)hB&I2o1LqX#~do%-8Yr_4j?gXfoop0@H$w
z2P_BcVc55jVZ&rOR(bjIip`aS7cmyO;E-cSkK8O^6dBDzgnJ)Rrc@d0Lm`AmED$L9
zYh_KFH{IB%00Dvrm*V>TB7~D@QJgkDc(8DRDbt^Rghnt`I+ZF%8xWdiWr_+5R02b)
zh84TcgI29vfgbq<c5GX>*p`~j`Yx@JwKU)6)mv*tS-EpNC0VhTaN$@;d&d2Hp)83H
WFAPVPJZnV-%M~C`*1UO55CA*ep61s8

literal 0
HcmV?d00001

diff --git a/harbour/contrib/gd/tests/images_out/EMPTY b/harbour/contrib/gd/tests/images_out/EMPTY
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/harbour/contrib/gd/tests/test_out.prg b/harbour/contrib/gd/tests/test_out.prg
new file mode 100644
index 0000000000..a6a3f6f3bc
--- /dev/null
+++ b/harbour/contrib/gd/tests/test_out.prg
@@ -0,0 +1,345 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * Windows CGI test application
+ */
+
+#include "gd.ch"
+#include "common.ch"
+
+#command WRITE <c> => FWrite( 1, <c> + CHR(13)+CHR(10) )
+#command OutHTML <c> => WRITE <c>
+
+PROCEDURE Main(...)
+
+   LOCAL cPar
+   LOCAL aParams := hb_aParams()
+   LOCAL cQuery  := GetEnv( "QUERY_STRING" )
+   LOCAL hParams := Hash()
+
+   LOCAL cText, cImg, nPt, nSize, nWidth, nHeight, cPhoto
+
+   IF Empty( aParams )
+      IF !Empty( cQuery )
+          hParams := GetVars( cQuery )
+      ENDIF
+   ELSE
+      hParams := GetParams( aParams )
+   ENDIF
+
+  //-----------------------------------------------------------------------------------------
+
+  // Gestione parametri
+  IF !Empty( hParams )
+     FOR EACH cPar IN hParams:Keys
+
+        do case
+        case cPar == "txt"
+             cText := hGet( hParams, cPar )
+
+        case cPar == "img"
+             cImg := hGet( hParams, cPar )
+
+        case cPar == "photo"
+             cPhoto := hGet( hParams, cPar )
+
+        case cPar == "width"
+             nWidth := Val( hGet( hParams, cPar ) )
+
+        case cPar == "height"
+             nHeight := Val( hGet( hParams, cPar ) )
+
+        case cPar == "pt"
+             nPt := Val( hGet( hParams, cPar ) )
+
+        endcase
+     NEXT
+  ENDIF
+
+  //__OutDebug( cQuery, ValToPrg( hParams ) )
+
+  //-----------------------------------------------------------------------------------------
+   //DEFAULT cText TO "Testo di Prova"
+   DEFAULT nPt TO 30
+
+   IF cImg <> NIL
+      //OutJpg( cImg, nPt )
+      OutPhoto( cImg, nWidth, nHeight )
+
+   ELSEIF cPhoto <> NIL
+      StartHTML()
+      //OutHTML ValToPrg( hParams ) + "<br>"
+      //OutHTML ValToPrg( cParams ) + "<br>"
+      //OutHTML ValToPrg( cQuery ) + "<br>"
+      //OutHTML "<img src='test_out.exe?img=" + cPhoto + "&width=" + AllTrim( Str( nWidth ) ) + "&height=" + AllTrim( Str( nHeight ) ) + "'>" + "<br>"
+      OutHTML "<table border=1>"
+      OutHTML "<tr><td align='center'>"
+      OutHTML "<img src='test_out.exe?img=" + cPhoto + "'>" + "<br>"
+      OutHTML "</td></tr>"
+      OutHTML "<tr><td align='center'>"
+      OutHTML "<img src='test_out.exe?img=" + cPhoto + ;
+              IIF( nWidth <> NIL , "&width="  + AllTrim( Str( nWidth ) ) , "" ) + ;
+              IIF( nHeight <> NIL, "&height=" + AllTrim( Str( nHeight ) ), "" ) + ;
+              "'>" + "<br>"
+      OutHTML "</td></tr>"
+      OutHTML "<tr><td align='center'>"
+      OutHTML cPhoto
+      OutHTML "</td></tr>"
+      OutHTML "</table>"
+      OutHTML "<br>"
+      //OutHTML "<img src='test_out.exe?img=" + cText + "_2&pt=" + AllTrim( Str( nPt ) ) + "'>" + "<br>"
+      //OutHTML OS() + "<br>"
+      //OutHTML IIF( OS_ISWINNT(), "WIN NT", "NON WIN NT" ) + "<br>"
+      EndHTML()
+   ELSE
+      StartHTML()
+      EndHTML()
+   ENDIF
+
+RETURN
+
+PROCEDURE StartHTML( cTitle )
+
+   DEFAULT cTitle TO ""
+
+   WRITE 'content-type: text/html'
+   WRITE 'Pragma: no-cache'
+   WRITE CHR(13)+CHR(10)
+   WRITE "<html>"
+   WRITE "<head>"
+   WRITE "<title>" + cTitle + "</title>"
+   WRITE "</head>"
+   WRITE "<body>"
+RETURN
+
+PROCEDURE EndHTML( cTitle )
+   WRITE "</body>"
+   WRITE "</html>"
+RETURN
+
+   // per windows: SET GDFONTPATH=c:\windows\fonts
+   // per linux  : export GDFONTPATH=/usr/share/fonts/default/TrueType
+
+PROCEDURE OutPhoto( cPhoto, nWidth, nHeight )
+   LOCAL cType
+
+   LOCAL oImage := GDImage():LoadFromFile( cPhoto )
+
+   IF nWidth <> NIL .AND. nHeight <> NIL
+      oImage:Resize( nWidth, nHeight )
+   ELSEIF nWidth <> NIL .AND. nHeight == NIL
+      nHeight := oImage:Height() * ( nWidth / oImage:Width() )
+      oImage:Resize( nWidth, nHeight )
+   ELSEIF nWidth == NIL .AND. nHeight <> NIL
+      nWidth := oImage:Width() * ( nHeight / oImage:Height() )
+      oImage:Resize( nWidth, nHeight )
+   ENDIF
+
+   //__OutDebug( hb_dumpvar( oImage ) )
+
+   WRITE 'content-type: ' + oImage:cMime + CHR(13)+CHR(10)
+   cType := oImage:cType
+
+   DO CASE
+      CASE cType == "jpeg"
+           oImage:OutputJpeg()
+      CASE cType == "gif"
+           oImage:OutputGif()
+      CASE cType == "png"
+           oImage:OutputPng()
+   ENDCASE
+
+   oImage := NIL
+RETURN
+
+PROCEDURE OutJpg( cText, nPitch )
+   LOCAL cOS := OS()
+   LOCAL cPath := IIF( Left( cOS, 10 ) == "Windows NT", "c:\winnt\fonts\", "c:\windows\fonts\" )
+   LOCAL oI, cyan, blue
+   LOCAL aSize, nWidth, nHeight, nX, nY
+   LOCAL cFont := cPath + "verdana.ttf"
+
+
+   DEFAULT cText  TO "Sample TEXT"
+   DEFAULT nPitch TO 30
+
+   /* Create an image in memory */
+   oI := GDImage( 400, 100 )
+
+   /* Allocate background */
+   cyan  := oI:SetColor(0, 255, 255)
+
+   /* Allocate drawing color */
+   blue := oI:SetColor(0, 0, 200)
+
+   //oI:SetTransparent( blue )
+   oI:SetFontName( cFont )
+   oI:SetFontPitch( nPitch )
+   //__OutDebug( oI:GetFTFontHeight() )
+   aSize := oI:GetFTStringSize( cText )
+   nWidth  := aSize[1]
+   nHeight := aSize[2]
+   nX      := aSize[3]
+   nY      := aSize[4]
+   oI:Resize( nWidth, nHeight )
+
+
+   /* Allocate drawing color */
+   blue := oI:SetColor(0, 0, 200)
+   oI:SetFontName( cPath + "verdana.ttf" )
+   oI:SetFontPitch( nPitch )
+   oI:SayFreeType( 0 - nX, 0 + nHeight - nY, cText, , , 0, blue )
+   //oI:SayFreeType( 0, 0, cText, , , 0, blue )
+
+   //oI:Resize( nWidth, nHeight )
+   //__OutDebug( "prima", oI:Width(), oI:Height() )
+   //oI:Resize( 60, 40 )
+   //__OutDebug( "dopo", oI:Width(), oI:Height() )
+
+   //oI:SetFontLarge()
+   //oI:SetColor( blue )
+   //oI:Say( 0, 0, cText )
+
+   WRITE 'content-type: image/jpeg' + CHR(13)+CHR(10)
+
+   oI:OutputJpeg()
+
+RETURN
+
+FUNCTION GetVars( cFields, cSeparator )
+   LOCAL hHashVars := Hash()
+   LOCAL aField, cField, aFields
+   LOCAL cName, xValue
+   DEFAULT cSeparator TO "&"
+
+   aFields := HB_RegExSplit( cSeparator, cFields )
+
+   FOR EACH cField in aFields
+      aField := HB_RegexSplit( "=", cField, 2 )
+      IF Len( aField ) != 2
+         LOOP
+      ENDIF
+
+      cName  := LTrim( aField[1] )
+      xValue := UrlDecode( aField[2] )
+
+      // Tracelog( "cName, xValue", cName, xValue )
+
+      // is it an array entry?
+      IF Substr( cName, Len( cName ) - 1 ) == "[]"
+         cName := Substr( cName, 1, Len( cName ) - 2 )
+
+         hHashVars[ cName ] := { xValue }
+
+      ELSE
+
+         hHashVars[ cName ] := xValue
+
+      ENDIF
+      //Tracelog( "hHashVars, cName, xValue", DumpValue( hHashVars ), cName, xValue )
+   NEXT
+   //__OutDebug( hHashVars )
+
+RETURN hHashVars
+
+FUNCTION GetParams( aParams )
+   LOCAL hHashVars := Hash()
+   LOCAL aField, cField, aFields
+   LOCAL cName, xValue
+
+   aFields := aParams
+
+   FOR EACH cField in aFields
+      aField := HB_RegexSplit( "=", cField, 2 )
+      IF Len( aField ) != 2
+         LOOP
+      ENDIF
+
+      cName  := LTrim( aField[1] )
+      xValue := UrlDecode( aField[2] )
+
+      // Tracelog( "cName, xValue", cName, xValue )
+
+      // is it an array entry?
+      IF Substr( cName, Len( cName ) - 1 ) == "[]"
+         cName := Substr( cName, 1, Len( cName ) - 2 )
+
+         hHashVars[ cName ] := { xValue }
+
+      ELSE
+
+         hHashVars[ cName ] := xValue
+
+      ENDIF
+      //Tracelog( "hHashVars, cName, xValue", DumpValue( hHashVars ), cName, xValue )
+   NEXT
+   //__OutDebug( hHashVars )
+
+RETURN hHashVars
+
+************************************************************
+* Decoding URL
+* Can return both a string or a number
+*
+FUNCTION URLDecode( cStr )
+   LOCAL cRet := "", i, cCar
+   LOCAL lNumeric := .T.
+
+   FOR i := 1 TO Len( cStr )
+      cCar := cStr[i]
+      DO CASE
+
+         CASE cCar == "+"
+            cRet += " "
+
+         CASE cCar == "%"
+            i ++
+            cRet += Chr( HexToNum( SubStr( cStr, i, 2 ) ) )
+            i ++
+
+         OTHERWISE
+            cRet += cCar
+
+      ENDCASE
+
+      IF (cRet[i] > "9" .or. cRet[i] < "0") .and. cRet[i] != "."
+         lNumeric := .F.
+      ENDIF
+   NEXT
+
+   *IF lNumeric
+   *   cRet := Val( cRet )
+   *ENDIF
+
+RETURN cRet
+
+FUNCTION URLEncode( cStr )
+   LOCAL cRet := "", i, nVal, cCar
+
+   FOR i := 1 TO Len( cStr )
+      cCar := cStr[i]
+      DO CASE
+
+         CASE cCar == " "
+              cRet += "+"
+
+         CASE cCar >= "A" .and. cCar <= "Z"
+            cRet += cCar
+
+         CASE cCar >= "a" .and. cCar <= "z"
+            cRet += cCar
+
+         CASE cCar >= "0" .and. cCar <= "9"
+            cRet += cCar
+
+         OTHERWISE
+            nVal := Asc( cCar )
+            cRet += "%" + NumToHex( nVal )
+      ENDCASE
+   NEXT
+
+RETURN cRet
diff --git a/harbour/contrib/gd/tests/testdpi.prg b/harbour/contrib/gd/tests/testdpi.prg
new file mode 100644
index 0000000000..c1bc821ec8
--- /dev/null
+++ b/harbour/contrib/gd/tests/testdpi.prg
@@ -0,0 +1,39 @@
+/*
+ * GD graphic library.
+ * graphic font DPI demo
+ *
+ * Copyright 2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ */
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+ oI := GDImage:Create( 600, 300 )
+
+ white := oI:SetColor( 255, 255, 255 )
+ black := oI:SetColor( 0, 0, 0 )
+
+ oI:SetColor( black )
+ oI:SetFontName("c:\windows\fonts\arial.ttf")
+ oI:SetFontPitch( 10 )
+
+ // Resolution = 96 dpi, default
+ oI:SayFreeType( 10, 100, "GD_RESOLUTION:  96 dpi" )
+
+ // Resolution = 150 dpi, using parameter 12
+ oI:SayFreeType( 10, 150, "GD_RESOLUTION: 150 dpi",,,,,,,, 150 )
+
+ // Resolution = 300 dpi, using parameter 12
+ oI:SayFreeType( 10, 200, "GD_RESOLUTION: 300 dpi",,,,,,,, 300 )
+
+ oI:SavePng(  IMAGES_OUT + "testdpi.png" )
+ oI:SaveJpeg( IMAGES_OUT + "testdpi.jpg" )
+ oI:SaveGif(  IMAGES_OUT + "testdpi.gif" )
+
+ RETURN
+
diff --git a/harbour/contrib/gd/tests/tostring.prg b/harbour/contrib/gd/tests/tostring.prg
new file mode 100644
index 0000000000..7f2e588f01
--- /dev/null
+++ b/harbour/contrib/gd/tests/tostring.prg
@@ -0,0 +1,48 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
+ *
+ * GD Class test file: tostring() demo
+ */
+
+
+#include "gd.ch"
+#include "common.ch"
+
+#define IMAGES_IN  "images_in/"
+#define IMAGES_OUT "images_out/"
+
+PROCEDURE Main()
+
+   LOCAL im, im2
+   LOCAL black, white, blue, red, green, cyan, gray
+   LOCAL aClip, color, font, aRect
+   LOCAL oI, oI2, oI3, oI4, nThick, n, nSecs
+   LOCAL oI5
+   LOCAL oB
+
+   // Check output directory
+   IF !ISDirectory( IMAGES_OUT )
+      DirMake( IMAGES_OUT )
+   ENDIF
+
+   /* Load an image from file */
+   oI := GDImage():LoadFromFile( IMAGES_IN + "xharbour.jpg" )
+
+   oI:SaveJpeg( IMAGES_OUT + "testfile.jpg" )
+
+   //Tracelog( oI:ToString() )
+
+   MemoWrit( IMAGES_OUT + "teststring.jpg", oI:ToString() )
+
+   oI:SaveToFile( IMAGES_OUT + "testtofile" )
+
+   ?
+   ? "Look at " + IMAGES_OUT + " folder for output images"
+   ?
+
+RETURN
+