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
25 lines
480 B
Plaintext
25 lines
480 B
Plaintext
|
|
#require "hbgd"
|
|
|
|
#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" )
|
|
|
|
RETURN
|