jro_apps/redmine Files · vendor/plugins/rfpdf/lib/barcode/i25object.rb

PDF: update rfpdf (#61)....

PDF: update rfpdf (#61). https://github.com/edwinmoss/rfpdf revision git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@5247 e93f8b46-1217-0410-a6f0-8f06a7374b81

Toshi MARUYAMA - - Load All Authors

File last commit:

r5127:22e8d9b94962


                r5127:22e8d9b94962

Download file

             i25object.rb
        
                    216 lines
            
             | 6.5 KiB
            
                | text/x-ruby
            
             |
                RubyLexer
            
             / vendor / plugins / rfpdf / lib / barcode / i25object.rb
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        Toshi MARUYAMA
    
PDF: update rfpdf (#61)....

              r5127
            
      #============================================================+

      # File name   : i25aobject.rb

      # Begin       : 2002-07-31

      # Last Update : 2004-12-29

      # Author      : Karim Mribti [barcode@mribti.com]

      #             : Nicola Asuni [info@tecnick.com]

      # Version     : 0.0.8a  2001-04-01 (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 : I25 Barcode Render Class for PHP using

      #               the GD graphics library.

      #               Interleaved 2 of 5 is a numeric only bar code

      #               with a optional check number.

      #

      # 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

      #============================================================+

      #

      # I25 Barcode Render Class for PHP using the GD graphics library.<br<

      # Interleaved 2 of 5 is a numeric only bar code with a optional check number.

      # @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

      #

      #

      # I25 Barcode Render Class for PHP using the GD graphics library.<br<

      # Interleaved 2 of 5 is a numeric only bar code with a optional check number.

      # @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 I25Object extends BarcodeObject {

      	#

      	# Class Constructor.

      	# @param int $Width Image width in pixels.

      	# @param int $Height Image height in pixels. 

      	# @param int $Style Barcode style.

      	# @param int $Value value to print on barcode.

      	#

      	def __construct($Width, $Height, $Style, $Value)

      		parent::__construct($Width, $Height, $Style);

      		@mValue = $Value;

      		@mCharSet = array (

      		# 0# "00110",

      		# 1# "10001",

      		# 2# "01001",

      		# 3# "11000",

      		# 4# "00101",

      		# 5# "10100",

      		# 6# "01100",

      		# 7# "00011",

      		# 8# "10010",

      		# 9# "01010"

      		);

      	end

      	#

      	# Returns barcode size.

      	# @param int $xres Horizontal resolution.

      	# @return barcode size.

      	# @access private

      	#

      	def GetSize($xres)

      		$len = @mValue.length;

      		if ($len == 0)  {

      			@mError = "Null value";

      			return false;

      		end

      		for ($i=0;$i<$len;$i++)

      			if ((@mValue[$i][0] < 48) || (@mValue[$i][0] > 57))

      				@mError = "I25 is numeric only";

      				return false;

      			end

      		end

      		if (($len%2) != 0)

      			@mError = "The length of barcode value must be even";

      			return false;

      		end

      		$StartSize = BCD_I25_NARROW_BAR# 4 # $xres;

      		$StopSize  = BCD_I25_WIDE_BAR# $xres + 2# BCD_I25_NARROW_BAR# $xres;

      		$cPos = 0;

      		$sPos = 0;

      		do {

      			$c1    = @mValue[$cPos];

      			$c2    = @mValue[$cPos+1];

      			$cset1 = @mCharSet[$c1];

      			$cset2 = @mCharSet[$c2];

      			for ($i=0;$i<5;$i++)

      				$type1 = ($cset1[$i]==0) ? (BCD_I25_NARROW_BAR # $xres) : (BCD_I25_WIDE_BAR# $xres);

      				$type2 = ($cset2[$i]==0) ? (BCD_I25_NARROW_BAR # $xres) : (BCD_I25_WIDE_BAR# $xres);

      				$sPos += ($type1 + $type2);

      			end

      			$cPos+=2;

      		end while ($cPos<$len);

      		return $sPos + $StartSize + $StopSize;

      	end

      	#

      	# Draws the start code.

      	# @param int $DrawPos Drawing position.

      	# @param int $yPos Vertical position.

      	# @param int $ySize Vertical size.

      	# @param int $xres Horizontal resolution.

      	# @return int drawing position.

      	# @access private

      	#

      	def DrawStart($DrawPos, $yPos, $ySize, $xres)

      		# Start code is "0000"#

      		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		return $DrawPos;

      	end

      	#

      	# Draws the stop code.

      	# @param int $DrawPos Drawing position.

      	# @param int $yPos Vertical position.

      	# @param int $ySize Vertical size.

      	# @param int $xres Horizontal resolution.

      	# @return int drawing position.

      	# @access private

      	#

      	def DrawStop($DrawPos, $yPos, $ySize, $xres)

      		# Stop code is "100"#

      		@DrawSingleBar($DrawPos, $yPos, BCD_I25_WIDE_BAR# $xres , $ySize);

      		$DrawPos += BCD_I25_WIDE_BAR # $xres;

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);

      		$DrawPos += BCD_I25_NARROW_BAR # $xres;

      		return $DrawPos;

      	end

      	#

      	# Draws the barcode object.

      	# @param int $xres Horizontal resolution.

      	# @return bool true in case of success.

      	#

      	def DrawObject($xres)

      		$len = @mValue.length;

      		if (($size = GetSize($xres))==0)

      			return false;

      		end

      		$cPos  = 0;

      		if (@mStyle & BCS_DRAW_TEXT) $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2 - GetFontHeight(@mFont);

      		else $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2;

      		if (@mStyle & BCS_ALIGN_CENTER) $sPos = (integer)((@mWidth - $size ) / 2);

      		elsif (@mStyle & BCS_ALIGN_RIGHT) $sPos = @mWidth - $size;

      		else $sPos = 0;

      		if (@mStyle & BCS_DRAW_TEXT)

      			if (@mStyle & BCS_STRETCH_TEXT)

      				# Stretch#

      				for ($i=0;$i<$len;$i++)

      					@DrawChar(@mFont, $sPos+BCD_I25_NARROW_BAR*4*$xres+($size/$len)*$i,

      					$ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET , @mValue[$i]);

      				end

      			endelse# Center#

      			$text_width = GetFontWidth(@mFont) * @mValue.length;

      			@DrawText(@mFont, $sPos+(($size-$text_width)/2)+(BCD_I25_NARROW_BAR*4*$xres),

      			$ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET, @mValue);

      			end

      		end

      		$sPos = @DrawStart($sPos, BCD_DEFAULT_MAR_Y1, $ysize, $xres);

      		do {

      			$c1 = @mValue[$cPos];

      			$c2 = @mValue[$cPos+1];

      			$cset1 = @mCharSet[$c1];

      			$cset2 = @mCharSet[$c2];

      			for ($i=0;$i<5;$i++)

      				$type1 = ($cset1[$i]==0) ? (BCD_I25_NARROW_BAR# $xres) : (BCD_I25_WIDE_BAR# $xres);

      				$type2 = ($cset2[$i]==0) ? (BCD_I25_NARROW_BAR# $xres) : (BCD_I25_WIDE_BAR# $xres);

      				@DrawSingleBar($sPos, BCD_DEFAULT_MAR_Y1, $type1 , $ysize);

      				$sPos += ($type1 + $type2);

      			end

      			$cPos+=2;

      		end while ($cPos<$len);

      		$sPos =  @DrawStop($sPos, BCD_DEFAULT_MAR_Y1, $ysize, $xres);

      		return true;

      	end

      }

      #============================================================+

      # END OF FILE

      #============================================================+

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

Toshi MARUYAMA PDF: update rfpdf (#61)....	r5127
		#============================================================+
		# File name : i25aobject.rb
		# Begin : 2002-07-31
		# Last Update : 2004-12-29
		# Author : Karim Mribti [barcode@mribti.com]
		# : Nicola Asuni [info@tecnick.com]
		# Version : 0.0.8a 2001-04-01 (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 : I25 Barcode Render Class for PHP using
		# the GD graphics library.
		# Interleaved 2 of 5 is a numeric only bar code
		# with a optional check number.
		#
		# 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
		#============================================================+

		#
		# I25 Barcode Render Class for PHP using the GD graphics library.<br<
		# Interleaved 2 of 5 is a numeric only bar code with a optional check number.
		# @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
		#

		#
		# I25 Barcode Render Class for PHP using the GD graphics library.<br<
		# Interleaved 2 of 5 is a numeric only bar code with a optional check number.
		# @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 I25Object extends BarcodeObject {

		#
		# Class Constructor.
		# @param int $Width Image width in pixels.
		# @param int $Height Image height in pixels.
		# @param int $Style Barcode style.
		# @param int $Value value to print on barcode.
		#
		def __construct($Width, $Height, $Style, $Value)
		parent::__construct($Width, $Height, $Style);
		@mValue = $Value;
		@mCharSet = array (
		# 0# "00110",
		# 1# "10001",
		# 2# "01001",
		# 3# "11000",
		# 4# "00101",
		# 5# "10100",
		# 6# "01100",
		# 7# "00011",
		# 8# "10010",
		# 9# "01010"
		);
		end

		#
		# Returns barcode size.
		# @param int $xres Horizontal resolution.
		# @return barcode size.
		# @access private
		#
		def GetSize($xres)
		$len = @mValue.length;

		if ($len == 0) {
		@mError = "Null value";
		return false;
		end

		for ($i=0;$i<$len;$i++)
		if ((@mValue[$i][0] < 48) \|\| (@mValue[$i][0] > 57))
		@mError = "I25 is numeric only";
		return false;
		end
		end

		if (($len%2) != 0)
		@mError = "The length of barcode value must be even";
		return false;
		end
		$StartSize = BCD_I25_NARROW_BAR# 4 # $xres;
		$StopSize = BCD_I25_WIDE_BAR# $xres + 2# BCD_I25_NARROW_BAR# $xres;
		$cPos = 0;
		$sPos = 0;
		do {
		$c1 = @mValue[$cPos];
		$c2 = @mValue[$cPos+1];
		$cset1 = @mCharSet[$c1];
		$cset2 = @mCharSet[$c2];

		for ($i=0;$i<5;$i++)
		$type1 = ($cset1[$i]==0) ? (BCD_I25_NARROW_BAR # $xres) : (BCD_I25_WIDE_BAR# $xres);
		$type2 = ($cset2[$i]==0) ? (BCD_I25_NARROW_BAR # $xres) : (BCD_I25_WIDE_BAR# $xres);
		$sPos += ($type1 + $type2);
		end
		$cPos+=2;
		end while ($cPos<$len);

		return $sPos + $StartSize + $StopSize;
		end

		#
		# Draws the start code.
		# @param int $DrawPos Drawing position.
		# @param int $yPos Vertical position.
		# @param int $ySize Vertical size.
		# @param int $xres Horizontal resolution.
		# @return int drawing position.
		# @access private
		#
		def DrawStart($DrawPos, $yPos, $ySize, $xres)
		# Start code is "0000"#
		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		return $DrawPos;
		end

		#
		# Draws the stop code.
		# @param int $DrawPos Drawing position.
		# @param int $yPos Vertical position.
		# @param int $ySize Vertical size.
		# @param int $xres Horizontal resolution.
		# @return int drawing position.
		# @access private
		#
		def DrawStop($DrawPos, $yPos, $ySize, $xres)
		# Stop code is "100"#
		@DrawSingleBar($DrawPos, $yPos, BCD_I25_WIDE_BAR# $xres , $ySize);
		$DrawPos += BCD_I25_WIDE_BAR # $xres;
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		@DrawSingleBar($DrawPos, $yPos, BCD_I25_NARROW_BAR # $xres , $ySize);
		$DrawPos += BCD_I25_NARROW_BAR # $xres;
		return $DrawPos;
		end

		#
		# Draws the barcode object.
		# @param int $xres Horizontal resolution.
		# @return bool true in case of success.
		#
		def DrawObject($xres)
		$len = @mValue.length;

		if (($size = GetSize($xres))==0)
		return false;
		end

		$cPos = 0;

		if (@mStyle & BCS_DRAW_TEXT) $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2 - GetFontHeight(@mFont);
		else $ysize = @mHeight - BCD_DEFAULT_MAR_Y1 - BCD_DEFAULT_MAR_Y2;

		if (@mStyle & BCS_ALIGN_CENTER) $sPos = (integer)((@mWidth - $size ) / 2);
		elsif (@mStyle & BCS_ALIGN_RIGHT) $sPos = @mWidth - $size;
		else $sPos = 0;

		if (@mStyle & BCS_DRAW_TEXT)
		if (@mStyle & BCS_STRETCH_TEXT)
		# Stretch#
		for ($i=0;$i<$len;$i++)
		@DrawChar(@mFont, $sPos+BCD_I25_NARROW_BAR4$xres+($size/$len)*$i,
		$ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET , @mValue[$i]);
		end
		endelse# Center#
		$text_width = GetFontWidth(@mFont) * @mValue.length;
		@DrawText(@mFont, $sPos+(($size-$text_width)/2)+(BCD_I25_NARROW_BAR4$xres),
		$ysize + BCD_DEFAULT_MAR_Y1 + BCD_DEFAULT_TEXT_OFFSET, @mValue);
		end
		end

		$sPos = @DrawStart($sPos, BCD_DEFAULT_MAR_Y1, $ysize, $xres);
		do {
		$c1 = @mValue[$cPos];
		$c2 = @mValue[$cPos+1];
		$cset1 = @mCharSet[$c1];
		$cset2 = @mCharSet[$c2];

		for ($i=0;$i<5;$i++)
		$type1 = ($cset1[$i]==0) ? (BCD_I25_NARROW_BAR# $xres) : (BCD_I25_WIDE_BAR# $xres);
		$type2 = ($cset2[$i]==0) ? (BCD_I25_NARROW_BAR# $xres) : (BCD_I25_WIDE_BAR# $xres);
		@DrawSingleBar($sPos, BCD_DEFAULT_MAR_Y1, $type1 , $ysize);
		$sPos += ($type1 + $type2);
		end
		$cPos+=2;
		end while ($cPos<$len);
		$sPos = @DrawStop($sPos, BCD_DEFAULT_MAR_Y1, $ysize, $xres);
		return true;
		end
		}

		#============================================================+
		# END OF FILE
		#============================================================+