9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
98 lines
2.7 KiB
Plaintext
98 lines
2.7 KiB
Plaintext
/*
|
|
* Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
|
|
*
|
|
* GD API test file
|
|
*/
|
|
|
|
#require "hbgd"
|
|
|
|
#define IMAGES_IN "imgs_in" + hb_ps()
|
|
#define IMAGES_OUT "imgs_out" + hb_ps()
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL im, im2
|
|
LOCAL black, blue, red, green, cyan
|
|
LOCAL color, font
|
|
|
|
#if 0
|
|
// Check output directory
|
|
IF ! hb_DirExists( IMAGES_OUT )
|
|
DirMake( IMAGES_OUT )
|
|
ENDIF
|
|
#endif
|
|
|
|
? gdVersion()
|
|
|
|
/* Create an image in memory */
|
|
im := gdImageCreate( 200, 200 )
|
|
|
|
/* Load an image in memory from file */
|
|
im2 := gdImageCreateFromJpeg( IMAGES_IN + "conv_tst.jpg" )
|
|
|
|
/* Now work on first empty image */
|
|
|
|
/* 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 )
|
|
|
|
/* 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_tst.png" )
|
|
gdImageJpeg( im2, IMAGES_OUT + "conv_tst.jpg" )
|
|
|
|
?
|
|
? "Look at " + IMAGES_OUT + " folder for output images"
|
|
?
|
|
|
|
RETURN
|