82c2c97a65
* src/rtl/sha1.c
* Settling back to original version of some lines.
- contrib/hbgd/tests/tpoly.hbp
- contrib/hbgd/tests/tpolyc.c
- Using hbct functions with same name, so this is not needed.
* contrib/hbgd/tests/tpoly.prg
* Applied patch from Tamas.
* Since final patch didn't apply I went on to rename static
vars to have s_ prefix.
* contrib/hbgd/tests/gdtest.prg
* contrib/hbgd/tests/barms.prg
* contrib/hbgd/tests/bartest.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbgd/tests/tostring.prg
* contrib/hbgd/tests/animgif.prg
* contrib/hbgd/tests/testdpi.prg
* contrib/hbgd/tests/test.prg
* contrib/hbgd/tests/counter.prg
* contrib/hbgd/tests/antialia.prg
* Using hb_ps(). Patch from Tamas.
29 lines
528 B
Plaintext
29 lines
528 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#define IMAGES_OUT "imgs_out" + hb_ps()
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL im, im2, col, i
|
|
|
|
im := gdImageCreateTrueColor( 100, 100 )
|
|
col := gdImageColorAllocate( im, 255, 255, 255 )
|
|
|
|
FOR i := 0 TO 99 STEP 10
|
|
gdImageLine( im, i, 0, i, 99, col )
|
|
gdImageLine( im, 0, i, 99, i, col )
|
|
NEXT
|
|
|
|
gdImagePng( im, IMAGES_OUT + "gdtest.png" )
|
|
|
|
im2 := gdImageSquareToCircle( im, 400 )
|
|
|
|
gdImagePng( im2, IMAGES_OUT + "gdtest_squared.png" )
|
|
|
|
gdImageDestroy( im )
|
|
gdImageDestroy( im2 )
|
|
|
|
RETURN
|