#require "hbgd"

#define IMAGES_OUT "imgs_out" + hb_ps()

PROCEDURE Main()

   LOCAL bar

   // Creating some Color (arguments are R, G, B)
   LOCAL black  := { 0, 0, 0 }
   LOCAL white  := { 255, 255, 255 }

#if 0
   LOCAL blue   := { 0, 0, 255 }
   LOCAL yellon := { 255, 255, 128 }

   LOCAL red    := { 255, 0, 0 }

   LOCAL nlower := 1, nhight := 50
#endif

   LOCAL ccode13    := "789136043666"
   LOCAL ccode8     := "0421000"
   // LOCAL ccode128   := "00011005100000000"
   LOCAL ccode128   := "Code 128"

   /* here is the list of arguments
   1- Barcode Type 13,8  and 128
   */

   bar := GDBarCode():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, IMAGES_OUT + "bar13.jpg", white )

   // 1 - code bar
   bar:Draw13( ccode13 )

   // Build image
   bar:Finish( 2 )

   // EAN8
   bar := GDBarCode():New( 8 )

   bar:Configure( 70, black, white, 2, 1 )

   bar:CreateBar( 154, 100, IMAGES_OUT + "bar8.gif", white )

   bar:Draw8( ccode8 )

   bar:Finish( 8 )

   bar:ResizeImage()

   // EAN128
   bar := GDBarCode():New( 128 )

   bar:Configure( 50, black, white, 2, 1 )

   bar:CreateBar( 300, 400, IMAGES_OUT + "bar128.gif", 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 := GDBarCode():New( 25 )

   bar:Configure( 25, black, white, 1, 1,, .T. )

   bar:CreateBar( 560, 60, IMAGES_OUT + "febraban.gif", white )
   bar:DrawI25( "104995628545723070285700000008218000" )
   bar:Finish( 8 )

   RETURN