comparison vendor/plugins/rfpdf/lib/barcode/barcode.rb @ 441:cbce1fd3b1b7 redmine-1.2

Update to Redmine 1.2-stable branch (Redmine SVN rev 6000)

+
+#============================================================+
+# File name   : barcode.rb
+# Begin       : 2002-07-31
+# Last Update : 2005-01-02
+# Author      : Karim Mribti [[e-mail]]
+# Version     : 1.1 [0.0.8a (original code)]
+# License     : GNU LGPL (Lesser General Public License) 2.1
+#               http://www.gnu.org/copyleft/lesser.txt
+# Source Code : http://www.mribti.com/barcode/
+#
+# Description : Generic Barcode Render Class for PHP using
+#               the GD graphics library.
+#
+# NOTE:
+# This version contains changes by Nicola Asuni:
+#  - porting to Ruby
+#  - code style and formatting
+#  - automatic php documentation in PhpDocumentor Style
+#    (www.phpdoc.org)
+#  - minor bug fixing
+#  - $mCharSet and $mChars variables were added here
+#============================================================+
+
+#
+# Barcode Render Class for PHP using the GD graphics library.
+# @author Karim Mribti, Nicola Asuni
+# @name BarcodeObject
+# @package com.tecnick.tcpdf
+# @@version 0.0.8a 2001-04-01 (original code)
+# @since 2001-03-25
+# @license http://www.gnu.org/copyleft/lesser.html LGPL
+#
+
+# Styles
+# Global
+
+#
+# option: generate barcode border
+#
+define("BCS_BORDER", 1);
+
+#
+# option: use transparent background
+#
+define("BCS_TRANSPARENT", 2);
+
+#
+# option: center barcode
+#
+define("BCS_ALIGN_CENTER", 4);
+
+#
+# option: align left
+#
+define("BCS_ALIGN_LEFT", 8);
+
+#
+# option: align right
+#
+define("BCS_ALIGN_RIGHT", 16);
+
+#
+# option: generate JPEG image
+#
+define("BCS_IMAGE_JPEG", 32);
+
+#
+# option: generate PNG image
+#
+define("BCS_IMAGE_PNG", 64);
+
+#
+# option: draw text
+#
+define("BCS_DRAW_TEXT", 128);
+
+#
+# option: stretch text
+#
+define("BCS_STRETCH_TEXT", 256);
+
+#
+# option: reverse color
+#
+define("BCS_REVERSE_COLOR", 512);
+
+#
+# option: draw check
+# (only for I25 code)
+#
+define("BCS_I25_DRAW_CHECK", 2048);
+
+#
+# set default background color
+#
+define("BCD_DEFAULT_BACKGROUND_COLOR", 0xFFFFFF);
+
+#
+# set default foreground color
+#
+define("BCD_DEFAULT_FOREGROUND_COLOR", 0x000000);
+
+#
+# set default style options
+#
+define("BCD_DEFAULT_STYLE", BCS_BORDER | BCS_ALIGN_CENTER | BCS_IMAGE_PNG);
+
+#
+# set default width
+#
+define("BCD_DEFAULT_WIDTH", 460);
+
+#
+# set default height
+#
+define("BCD_DEFAULT_HEIGHT", 120);
+
+#
+# set default font
+#
+define("BCD_DEFAULT_FONT", 5);
+
+#
+# st default horizontal resolution
+#
+define("BCD_DEFAULT_XRES", 2);
+
+# Margins
+
+#
+# set default margin
+#
+define("BCD_DEFAULT_MAR_Y1", 0);
+
+#
+# set default margin
+#
+define("BCD_DEFAULT_MAR_Y2", 0);
+
+#
+# set default text offset
+#
+define("BCD_DEFAULT_TEXT_OFFSET", 2);
+
+# For the I25 Only
+
+#
+# narrow bar option
+# (only for I25 code)
+#
+define("BCD_I25_NARROW_BAR", 1);
+
+#
+# wide bar option
+# (only for I25 code)
+#
+define("BCD_I25_WIDE_BAR", 2);
+
+# For the C39 Only
+
+#
+# narrow bar option
+# (only for c39 code)
+#
+define("BCD_C39_NARROW_BAR", 1);
+
+#
+# wide bar option
+# (only for c39 code)
+#
+define("BCD_C39_WIDE_BAR", 2);
+
+# For Code 128
+
+#
+# set type 1 bar
+# (only for c128 code)
+#
+define("BCD_C128_BAR_1", 1);
+
+#
+# set type 2 bar
+# (only for c128 code)
+#
+define("BCD_C128_BAR_2", 2);
+
+#
+# set type 3 bar
+# (only for c128 code)
+#
+define("BCD_C128_BAR_3", 3);
+
+#
+# set type 4 bar
+# (only for c128 code)
+#
+define("BCD_C128_BAR_4", 4);
+
+#
+# Barcode Render Class for PHP using the GD graphics library.
+# @author Karim Mribti, Nicola Asuni
+# @name BarcodeObject
+# @package com.tecnick.tcpdf
+# @@version 0.0.8a 2001-04-01 (original code)
+# @since 2001-03-25
+# @license http://www.gnu.org/copyleft/lesser.html LGPL
+#
+class BarcodeObject {
+	#
+	# @var Image width in pixels.
+	# @access protected
+	#
+	protected $mWidth;
+	
+	#
+	# @var Image height in pixels.
+	# @access protected
+	#
+	protected $mHeight;
+	
+	#
+	# @var Numeric code for Barcode style.
+	# @access protected
+	#
+	protected $mStyle;
+	
+	#
+	# @var Background color.
+	# @access protected
+	#
+	protected $mBgcolor;
+	
+	#
+	# @var Brush color.
+	# @access protected
+	#
+	protected $mBrush;
+	
+	#
+	# @var Image object.
+	# @access protected
+	#
+	protected $mImg;
+	
+	#
+	# @var Numeric code for character font.
+	# @access protected
+	#
+	protected $mFont;
+	
+	#
+	# @var Error message.
+	# @access protected
+	#
+	protected $mError;
+	
+	#
+	# @var Character Set.
+	# @access protected
+	#
+	protected $mCharSet;
+	
+	#
+	# @var Allowed symbols.
+	# @access protected
+	#
+	protected $mChars;
+
+	#
+	# Class Constructor.
+	# @param int $Width Image width in pixels.
+	# @param int $Height Image height in pixels. 
+	# @param int $Style Barcode style.
+	#
+	def __construct($Width=BCD_DEFAULT_WIDTH, $Height=BCD_DEFAULT_HEIGHT, $Style=BCD_DEFAULT_STYLE)
+		@mWidth = $Width;
+		@mHeight = $Height;
+		@mStyle = $Style;
+		@mFont = BCD_DEFAULT_FONT;
+		@mImg = ImageCreate(@mWidth, @mHeight);
+		$dbColor = @mStyle & BCS_REVERSE_COLOR ? BCD_DEFAULT_FOREGROUND_COLOR : BCD_DEFAULT_BACKGROUND_COLOR;
+		$dfColor = @mStyle & BCS_REVERSE_COLOR ? BCD_DEFAULT_BACKGROUND_COLOR : BCD_DEFAULT_FOREGROUND_COLOR;
+		@mBgcolor = ImageColorAllocate(@mImg, ($dbColor & 0xFF0000) >> 16,
+		($dbColor & 0x00FF00) >> 8, $dbColor & 0x0000FF);
+		@mBrush = ImageColorAllocate(@mImg, ($dfColor & 0xFF0000) >> 16,
+		($dfColor & 0x00FF00) >> 8, $dfColor & 0x0000FF);
+		if (!(@mStyle & BCS_TRANSPARENT))
+			ImageFill(@mImg, @mWidth, @mHeight, @mBgcolor);
+		end
+	end
+	
+	#
+	# Class Destructor.
+	# Destroy image object.
+	#
+	def __destructor()
+		@DestroyObject();
+	end
+
+	#
+	# Returns the image object.
+	# @return object image.
+	# @author Nicola Asuni
+	# @since 1.5.2
+	#
+	def getImage()
+		return @mImg;
+	end
+	
+	#
+	# Abstract method used to draw the barcode image.
+	# @param int $xres Horizontal resolution.
+	#
+	def DrawObject($xres)	{
+		# there is not implementation neded, is simply the asbsract function.#
+		return false;
+	end
+	
+	#
+	# Draws the barcode border.
+	# @access protected
+	#
+	protected function DrawBorder()
+		ImageRectangle(@mImg, 0, 0, @mWidth-1, @mHeight-1, @mBrush);
+	end
+	
+	#
+	# Draws the alphanumeric code.
+	# @param int $Font Font type.
+	# @param int $xPos Horiziontal position.
+	# @param int $yPos Vertical position.
+	# @param int $Char Alphanumeric code to write.
+	# @access protected
+	#
+	protected function DrawChar($Font, $xPos, $yPos, $Char)
+		ImageString(@mImg,$Font,$xPos,$yPos,$Char,@mBrush);
+	end
+	
+	#
+	# Draws a character string.
+	# @param int $Font Font type.
+	# @param int $xPos Horiziontal position.
+	# @param int $yPos Vertical position.
+	# @param int $Char string to write.
+	# @access protected
+	#
+	protected function DrawText($Font, $xPos, $yPos, $Char)
+		ImageString(@mImg,$Font,$xPos,$yPos,$Char,@mBrush);
+	end
+
+	#
+	# Draws a single barcode bar.
+	# @param int $xPos Horiziontal position.
+	# @param int $yPos Vertical position.
+	# @param int $xSize Horizontal size.
+    # @param int $xSize Vertical size.
+    # @return bool trur in case of success, false otherwise.
+    # @access protected
+	#
+	protected function DrawSingleBar($xPos, $yPos, $xSize, $ySize)
+		if ($xPos>=0 && $xPos<=@mWidth && ($xPos+$xSize)<=@mWidth &&
+		$yPos>=0 && $yPos<=@mHeight && ($yPos+$ySize)<=@mHeight)
+			for ($i=0;$i<$xSize;$i++)
+				ImageLine(@mImg, $xPos+$i, $yPos, $xPos+$i, $yPos+$ySize, @mBrush);
+			end
+			return true;
+		end
+		return false;
+	end
+	
+	#
+	# Returns the current error message.
+	# @return string error message.
+	#
+	def GetError()
+		return @mError;
+	end
+	
+	#
+	# Returns the font height.
+	# @param int $font font type.
+	# @return int font height.
+	#
+	def GetFontHeight($font)
+		return ImageFontHeight($font);
+	end
+	
+	#
+	# Returns the font width.
+	# @param int $font font type.
+	# @return int font width.
+	#
+	def GetFontWidth($font)
+		return ImageFontWidth($font);
+	end
+	
+	#
+	# Set font type.
+	# @param int $font font type.
+	#
+	def SetFont($font)
+		@mFont = $font;
+	end
+	
+	#
+	# Returns barcode style.
+	# @return int barcode style.
+	#
+	def GetStyle()
+		return @mStyle;
+	end
+
+	#
+	# Set barcode style.
+	# @param int $Style barcode style.
+	#
+	def SetStyle ($Style)
+		@mStyle = $Style;
+	end
+
+	#
+	# Flush the barcode image.
+	#
+	def FlushObject()
+		if ((@mStyle & BCS_BORDER))
+			@DrawBorder();
+		end
+		if (@mStyle & BCS_IMAGE_PNG)
+			Header("Content-Type: image/png");
+			ImagePng(@mImg);
+		elsif (@mStyle & BCS_IMAGE_JPEG)
+			Header("Content-Type: image/jpeg");
+			ImageJpeg(@mImg);
+		end
+	end
+	
+	#
+	# Destroy the barcode image.
+	#
+	def DestroyObject()
+		ImageDestroy(@mImg);
+	end
+}
+
+#============================================================+
+# END OF FILE
+#============================================================+