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
37 lines
882 B
Plaintext
37 lines
882 B
Plaintext
/*
|
|
* GD graphic library.
|
|
* graphic font DPI demo
|
|
*
|
|
* Copyright 2005 Francesco Saverio Giudice <info@fsgiudice.com>
|
|
*/
|
|
|
|
#require "hbgd"
|
|
|
|
#define IMAGES_IN "imgs_in" + hb_ps()
|
|
#define IMAGES_OUT "imgs_out" + hb_ps()
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oI := GDImage():Create( 600, 300 )
|
|
|
|
LOCAL black := oI:SetColor( 50, 0, 0 )
|
|
|
|
oI:SetColor( black )
|
|
oI:SetFontName( "Arial" ) // TOFIX
|
|
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
|