63ef8ff6e0
- hbgd/tests/images_in
- hbgd/tests/images_out
+ hbgd/tests/imgs_in
+ hbgd/tests/imgs_out
* hbgd/tests/gdtest.prg
* hbgd/tests/bartest.prg
* hbgd/tests/barms.prg
* hbgd/tests/test_out.prg
* hbgd/tests/tostring.prg
* hbgd/tests/gdtestcl.prg
* hbgd/tests/animgif.prg
* hbgd/tests/testdpi.prg
* hbgd/tests/counter.prg
* hbgd/tests/antialia.prg
* Removing long filenames in hbgd (part 2/3)
! Added SVN headers.
! Fixed to not use hbcompat.ch.
2008-07-03 14:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbgd/Makefile
* contrib/hbgd/common.mak
- contrib/hbgd/gdexternal.ch
+ contrib/hbgd/gdextern.ch
- contrib/hbgd/tests/gdtestcls.prg
+ contrib/hbgd/tests/gdtestcl.prg
- contrib/hbgd/tests/antialiased.prg
+ contrib/hbgd/tests/antialia.prg
! Removing long filenames in hbgd (part 1/3)
94 lines
1.8 KiB
Plaintext
94 lines
1.8 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#define IMAGES_OUT "imgs_out/"
|
|
|
|
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
|