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.
94 lines
1.8 KiB
Plaintext
94 lines
1.8 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#define IMAGES_OUT "imgs_out" + hb_ps()
|
|
|
|
Function Main()
|
|
|
|
local bar
|
|
|
|
// // Creating some Color (arguments are R, G, B)
|
|
local black := {0,0,0}
|
|
local white := {255,255,255}
|
|
|
|
// local blue := {0,0,255}
|
|
// local yellon := {255,255,128}
|
|
|
|
// local red := {255,0,0}
|
|
|
|
local ccode13 := "789136043666"
|
|
local ccode8 := "0421000"
|
|
// local ccode128 := "00011005100000000"
|
|
local ccode128 := "Code 128"
|
|
|
|
// local nlower := 1 , nhight := 50
|
|
|
|
/* here is the list of arguments
|
|
1- Barcode Type 13,8 and 128
|
|
*/
|
|
|
|
bar := TCode():New(13)
|
|
|
|
/* Here is the list of the arguments
|
|
1 - Thickness
|
|
2 - Color of bars
|
|
3 - Color of spaces
|
|
4 - Resolution
|
|
5 - Text Font (0-5)
|
|
*/
|
|
bar:Configure( 70 , black, white, 2, 1 )
|
|
|
|
/* Here is the list of the arguments
|
|
1 - Width
|
|
2 - Height
|
|
3 - Filename (empty : display on screen)
|
|
4 - Background color */
|
|
bar:CreateBar( 205, 105,,white)
|
|
|
|
// 1 - code bar
|
|
bar:Draw13(ccode13)
|
|
|
|
// Build image
|
|
bar:Finish(2)
|
|
|
|
// EAN8
|
|
bar:= TCode():New(8)
|
|
|
|
bar:Configure( 70 , black, white, 2 , 1 )
|
|
|
|
bar:CreateBar( 154, 100,,white)
|
|
|
|
bar:Draw8(ccode8)
|
|
|
|
bar:Finish(8)
|
|
|
|
bar:ResizeImage()
|
|
|
|
// EAN128
|
|
bar:= TCode():New(128)
|
|
|
|
bar:Configure( 50 , black, white, 2 , 1 )
|
|
|
|
bar:CreateBar( 300, 400, IMAGES_OUT + "Bar128",white)
|
|
|
|
// 1- code bar
|
|
// 2- barcode types A/B/C
|
|
// A- Alphanumeric characters uppercase
|
|
// B- Alphanumeric characters upper and lowercase
|
|
// C- Numeric pairs of integer
|
|
bar:Draw128(cCode128,"B")
|
|
|
|
bar:Finish(2)
|
|
|
|
// BRAZIL-FEBRABAN
|
|
bar:= TCode():New(25)
|
|
|
|
bar:Configure( 25 , black, white, 1 , 1, , .T. )
|
|
|
|
bar:CreateBar( 560 ,60, IMAGES_OUT + "febraban", white )
|
|
bar:DrawI25("104995628545723070285700000008218000")
|
|
bar:Finish(8)
|
|
|
|
RETURN NIL
|