a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* UTF-8 */
|
|
|
|
#require "hbcairo"
|
|
|
|
REQUEST HB_CODEPAGE_LTWIN
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL hSurface, hCairo, nI
|
|
|
|
hb_cdpSelect( "LTWIN" )
|
|
hSurface := cairo_pdf_surface_create( "hellow.pdf", 566.9, 793.7 ) // 200x280 mm in pt
|
|
hCairo := cairo_create( hSurface )
|
|
|
|
cairo_select_font_face( hCairo, "sans-serif", CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_BOLD )
|
|
cairo_set_font_size( hCairo, 16 )
|
|
cairo_set_source_rgb( hCairo, 0, 0, 0 ) // black
|
|
|
|
cairo_move_to( hCairo, 50, 50 )
|
|
cairo_show_text( hCairo, "Hello, World!" )
|
|
|
|
cairo_set_line_width( hCairo, 1 )
|
|
FOR nI := 1 TO 10
|
|
cairo_set_source_rgb( hCairo, hb_Random(), hb_Random(), hb_Random() )
|
|
cairo_rectangle( hCairo, 100 + nI * 5, 50 + nI * 5, 100, 70 )
|
|
cairo_stroke( hCairo )
|
|
NEXT
|
|
|
|
// Let's try some national characters
|
|
cairo_select_font_face( hCairo, "sans-serif", CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_NORMAL )
|
|
cairo_set_font_size( hCairo, 10 )
|
|
cairo_set_source_rgb( hCairo, 0, 0, 0 )
|
|
cairo_move_to( hCairo, 50, 300 )
|
|
cairo_show_text( hCairo, hb_UTF8ToStr( "Plaukė žąselė per ežerėlį..." ) )
|
|
|
|
cairo_show_page( hCairo )
|
|
cairo_destroy( hCairo )
|
|
cairo_surface_destroy( hSurface )
|
|
|
|
RETURN
|