fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-07-03 15:08 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
- hbgd/tests/images_in
   - hbgd/tests/images_out
   + hbgd/tests/imgs_in
   + hbgd/tests/imgs_out
   * hbgd/tests/gdtest.prg
   * hbgd/tests/bartest.prg
   * hbgd/tests/barms.prg
   * hbgd/tests/test_out.prg
   * hbgd/tests/tostring.prg
   * hbgd/tests/gdtestcl.prg
   * hbgd/tests/animgif.prg
   * hbgd/tests/testdpi.prg
   * hbgd/tests/counter.prg
   * hbgd/tests/antialia.prg
     * Removing long filenames in hbgd (part 2/3)
     ! Added SVN headers.
     ! Fixed to not use hbcompat.ch.

2008-07-03 14:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * contrib/hbgd/Makefile
   * contrib/hbgd/common.mak
   - contrib/hbgd/gdexternal.ch
   + contrib/hbgd/gdextern.ch
   - contrib/hbgd/tests/gdtestcls.prg
   + contrib/hbgd/tests/gdtestcl.prg
   - contrib/hbgd/tests/antialiased.prg
   + contrib/hbgd/tests/antialia.prg
     ! Removing long filenames in hbgd (part 1/3)
This commit is contained in:
Viktor Szakats
2008-07-03 13:13:26 +00:00
parent e5489de2c3
commit 63ef8ff6e0
14 changed files with 57 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
harbour/ChangeLog
View File

@@ -8,6 +8,25 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-07-03 15:08 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
- hbgd/tests/images_in
- hbgd/tests/images_out
+ hbgd/tests/imgs_in
+ hbgd/tests/imgs_out
* hbgd/tests/gdtest.prg
* hbgd/tests/bartest.prg
* hbgd/tests/barms.prg
* hbgd/tests/test_out.prg
* hbgd/tests/tostring.prg
* hbgd/tests/gdtestcl.prg
* hbgd/tests/animgif.prg
* hbgd/tests/testdpi.prg
* hbgd/tests/counter.prg
* hbgd/tests/antialia.prg
* Removing long filenames in hbgd (part 2/3)
! Added SVN headers.
! Fixed to not use hbcompat.ch.
2008-07-03 14:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbgd/Makefile
* contrib/hbgd/common.mak
@@ -17,7 +36,7 @@
+ contrib/hbgd/tests/gdtestcl.prg
- contrib/hbgd/tests/antialiased.prg
+ contrib/hbgd/tests/antialia.prg
! Removing long filenames in hbgd (part 1/2)
! Removing long filenames in hbgd (part 1/3)
2008-07-03 14:22 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbbmcdx/Makefile

4
harbour/contrib/hbgd/tests/animgif.prg
View File

@@ -13,8 +13,8 @@
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()

4
harbour/contrib/hbgd/tests/antialia.prg
View File

@@ -11,8 +11,8 @@
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()

5
harbour/contrib/hbgd/tests/barms.prg
View File

@@ -1,5 +1,8 @@
/*
* $Id$
*/
#define IMAGES_OUT "images_out/"
#define IMAGES_OUT "imgs_out/"
Function Main()

5
harbour/contrib/hbgd/tests/bartest.prg
View File

@@ -1,5 +1,8 @@
/*
* $Id$
*/
#define IMAGES_OUT "images_out/"
#define IMAGES_OUT "imgs_out/"
Function Main()

3
harbour/contrib/hbgd/tests/counter.prg
View File

@@ -11,12 +11,11 @@
* i.e.: counter 34524
*/
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "digits/"
#define IMAGES_OUT "images_out/"
#define IMAGES_OUT "imgs_out/"
#define DISPLAY_NUM 10

4
harbour/contrib/hbgd/tests/gdtest.prg
View File

@@ -11,8 +11,8 @@
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()

7
harbour/contrib/hbgd/tests/gdtestcl.prg
View File

@@ -8,12 +8,11 @@
* GD Class test file
*/
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()
@@ -237,7 +236,7 @@ PROCEDURE Main()
red := oI5:SetColor(250, 0, 0)
// Load an image as brush
oB := GDImage():LoadFromGif( IMAGES_IN + "theclipper.gif" )
oB := GDImage():LoadFromGif( IMAGES_IN + "harbour.gif" )
oB:Zoom(15)
//oI5:Circle( 200, 200, oI5:Width() )

0
harbour/contrib/hbgd/tests/images_in/conv_test.jpg → harbour/contrib/hbgd/tests/imgs_in/conv_test.jpg
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 2.3 KiB

After

Width:  |  Height:  |  Size: 2.3 KiB

0
harbour/contrib/hbgd/tests/images_in/gdlogobig.png → harbour/contrib/hbgd/tests/imgs_in/gdlogobig.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 1.9 KiB

After

Width:  |  Height:  |  Size: 1.9 KiB

0
harbour/contrib/hbgd/tests/images_in/theclipper.gif → harbour/contrib/hbgd/tests/imgs_in/theclipper.gif
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 6.1 KiB

After

Width:  |  Height:  |  Size: 6.1 KiB

23
harbour/contrib/hbgd/tests/test_out.prg
View File

@@ -10,7 +10,6 @@
#include "gd.ch"
#include "common.ch"
#include "hbcompat.ch"
#command WRITE <c> => FWrite( 1, <c> + CHR(13)+CHR(10) )
#command OutHTML <c> => WRITE <c>
@@ -20,7 +19,7 @@ PROCEDURE Main(...)
LOCAL cPar
LOCAL aParams := hb_aParams()
LOCAL cQuery := GetEnv( "QUERY_STRING" )
LOCAL hParams := Hash()
LOCAL hParams := hb_Hash()
LOCAL cText, cImg, nPt, nSize, nWidth, nHeight, cPhoto
@@ -40,22 +39,22 @@ PROCEDURE Main(...)
do case
case cPar == "txt"
cText := hGet( hParams, cPar )
cText := hb_hGet( hParams, cPar )
case cPar == "img"
cImg := hGet( hParams, cPar )
cImg := hb_hGet( hParams, cPar )
case cPar == "photo"
cPhoto := hGet( hParams, cPar )
cPhoto := hb_hGet( hParams, cPar )
case cPar == "width"
nWidth := Val( hGet( hParams, cPar ) )
nWidth := Val( hb_hGet( hParams, cPar ) )
case cPar == "height"
nHeight := Val( hGet( hParams, cPar ) )
nHeight := Val( hb_hGet( hParams, cPar ) )
case cPar == "pt"
nPt := Val( hGet( hParams, cPar ) )
nPt := Val( hb_hGet( hParams, cPar ) )
endcase
NEXT
@@ -212,7 +211,7 @@ PROCEDURE OutJpg( cText, nPitch )
RETURN
FUNCTION GetVars( cFields, cSeparator )
LOCAL hHashVars := Hash()
LOCAL hHashVars := hb_Hash()
LOCAL aField, cField, aFields
LOCAL cName, xValue
DEFAULT cSeparator TO "&"
@@ -248,7 +247,7 @@ FUNCTION GetVars( cFields, cSeparator )
RETURN hHashVars
FUNCTION GetParams( aParams )
LOCAL hHashVars := Hash()
LOCAL hHashVars := hb_Hash()
LOCAL aField, cField, aFields
LOCAL cName, xValue
@@ -299,7 +298,7 @@ FUNCTION URLDecode( cStr )
CASE cCar == "%"
i ++
cRet += Chr( HexToNum( SubStr( cStr, i, 2 ) ) )
cRet += Chr( hb_HexToNum( SubStr( cStr, i, 2 ) ) )
i ++
OTHERWISE
@@ -339,7 +338,7 @@ FUNCTION URLEncode( cStr )
OTHERWISE
nVal := Asc( cCar )
cRet += "%" + NumToHex( nVal )
cRet += "%" + hb_NumToHex( nVal )
ENDCASE
NEXT

8
harbour/contrib/hbgd/tests/testdpi.prg
View File

@@ -1,3 +1,7 @@
/*
* $Id$
*/
/*
* GD graphic library.
* graphic font DPI demo
@@ -8,8 +12,8 @@
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()

4
harbour/contrib/hbgd/tests/tostring.prg
View File

@@ -12,8 +12,8 @@
#include "gd.ch"
#include "common.ch"
#define IMAGES_IN "images_in/"
#define IMAGES_OUT "images_out/"
#define IMAGES_IN "imgs_in/"
#define IMAGES_OUT "imgs_out/"
PROCEDURE Main()