fab384f35d
* src/rtl/hbi18n2.prg
* utils/hbi18n/hbi18n.prg
* contrib/hbformat/hbfmtcls.prg
* changed ' = ' to LEFTEQUAL() macro
* src/rdd/hbsix/sxini.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbide/idebrowse.prg
* changed ' = ' to ' Left( ... ) == '
* contrib/hbct/tests/csetarge.prg
* contrib/hbct/tests/trig.prg
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/xhb/trpccli.prg
* contrib/xhb/trpc.prg
* contrib/hbcairo/tests/glyphdbg.prg
* contrib/hbide/hbqreportsmanager.prg
* examples/httpsrv/cgifunc.prg
* examples/httpsrv/session.prg
* ' = ' -> ' := '
* contrib/xhb/traceprg.prg
* contrib/xhb/ttable.prg
* contrib/hbfbird/tfirebrd.prg
* contrib/hbtip/tests/base64.prg
* contrib/hbide/idemisc.prg
* contrib/hbide/idebrowse.prg
* examples/terminal/trm_srv.prg
* ' = ' -> ' == '
* contrib/xhb/tedit.prg
* ' = ' -> ' == ' (I'm unsure about this, pls correct if you know the intent)
* contrib/xhb/hbstruct.prg
* ' = ' -> ' := '
* formatted
* contrib/hbtip/tests/base64.prg
* File() -> hb_FileExists()
; TOFIX:
- it's impossible for me to decide what the intent is in these files with ' = ' operator,
please fix them:
* contrib/hbide/idetags.prg
* contrib/xhb/tcgi.prg
- these also need to be fixed:
* contrib/hbwin/legacy.prg:298: xRet := ( ::OleValue = xArg ) /* NOTE: Intentionally using '=' operator. */
* examples/rddado/tests/access2.prg:40: LOCATE FOR ( 'First = "Lara"' )
There are a ton more in gtwvw, hbnf, other examples and tests, I left them as is
84 lines
2.5 KiB
Plaintext
84 lines
2.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
|
|
#include "hbcairo.ch"
|
|
|
|
PROC main()
|
|
LOCAL hSurface, hCairo
|
|
|
|
hSurface := cairo_pdf_surface_create( "glyphdbg.pdf", 566.9, 793.7 ) // 200x280 mm in pt
|
|
hCairo := cairo_create( hSurface )
|
|
|
|
cairo_select_font_face( hCairo, "Times", CAIRO_FONT_SLANT_NORMAL, CAIRO_FONT_WEIGHT_NORMAL )
|
|
cairo_set_font_size( hCairo, 200 )
|
|
cairo_set_source_rgb( hCairo, 0, 0, 0.7 )
|
|
|
|
cairo_move_to( hCairo, 100, 250 )
|
|
cairo_text_path( hCairo, "Ag" )
|
|
path_debug( hCairo )
|
|
|
|
cairo_move_to( hCairo, 100, 500 )
|
|
cairo_text_path( hCairo, "Ag" )
|
|
path_debug( hCairo, 4 )
|
|
|
|
cairo_show_page( hCairo )
|
|
cairo_destroy( hCairo )
|
|
cairo_surface_destroy( hSurface )
|
|
RETURN
|
|
|
|
|
|
PROC path_debug( hCairo, nTolerance )
|
|
LOCAL hPath, hIterator, nType, aPoints
|
|
|
|
cairo_save( hCairo )
|
|
|
|
IF EMPTY( nTolerance )
|
|
hPath := cairo_copy_path( hCairo )
|
|
ELSE
|
|
cairo_save( hCairo )
|
|
cairo_set_tolerance( hCairo, nTolerance )
|
|
hPath := cairo_copy_path_flat( hCairo )
|
|
cairo_restore( hCairo )
|
|
ENDIF
|
|
|
|
// Draw lines
|
|
cairo_new_path( hCairo )
|
|
cairo_append_path( hCairo, hPath )
|
|
cairo_set_source_rgb( hCairo, 0, 0.4, 0 )
|
|
cairo_set_line_width( hCairo, 1.0 )
|
|
cairo_stroke( hCairo )
|
|
|
|
// Draw points
|
|
cairo_set_source_rgb( hCairo, 0, 0, 0 )
|
|
cairo_set_line_width( hCairo, 2.0 )
|
|
cairo_set_line_cap( hCairo, CAIRO_LINE_CAP_ROUND )
|
|
hIterator := cairo_path_iterator_create( hPath )
|
|
DO WHILE ( nType := cairo_path_iterator_next( hIterator ) ) != NIL
|
|
aPoints := cairo_path_iterator_get_points( hIterator )
|
|
IF nType == CAIRO_PATH_MOVE_TO
|
|
cairo_move_to( hCairo, aPoints[ 1, 1 ], aPoints[ 1, 2 ] )
|
|
cairo_rel_line_to( hCairo, 0, 0 )
|
|
ELSEIF nType == CAIRO_PATH_LINE_TO
|
|
cairo_move_to( hCairo, aPoints[ 1, 1 ], aPoints[ 1, 2 ] )
|
|
cairo_rel_line_to( hCairo, 0, 0 )
|
|
ELSEIF nType == CAIRO_PATH_CURVE_TO
|
|
cairo_stroke( hCairo )
|
|
cairo_set_source_rgb( hCairo, 0.5, 0.5, 0.5 )
|
|
cairo_move_to( hCairo, aPoints[ 1, 1 ], aPoints[ 1, 2 ] )
|
|
cairo_rel_line_to( hCairo, 0, 0 )
|
|
cairo_move_to( hCairo, aPoints[ 2, 1 ], aPoints[ 2, 2 ] )
|
|
cairo_rel_line_to( hCairo, 0, 0 )
|
|
cairo_stroke( hCairo )
|
|
cairo_set_source_rgb( hCairo, 0, 0, 0 )
|
|
cairo_move_to( hCairo, aPoints[ 3, 1 ], aPoints[ 3, 2 ] )
|
|
cairo_rel_line_to( hCairo, 0, 0 )
|
|
ENDIF
|
|
ENDDO
|
|
cairo_path_iterator_destroy( hIterator )
|
|
cairo_stroke( hCairo )
|
|
cairo_path_destroy( hPath )
|
|
cairo_restore( hCairo )
|
|
RETURN
|