Redmine/vendor/plugins/rfpdf/lib/barcode/i25object.rb

217 lines
6.5 KiB
Ruby
Raw Normal View History

#============================================================+
# 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
#============================================================+