rghost_barcode 0.8 → 0.9

data/lib/rghost_barcode/ps/upca.ps

@@ -1,128 +0,0 @@
-
-% --DESC: UPC-A
-% --EXAM: 78858101497
-% --EXOP: includetext
-% --RNDR: renlinear
-/upca {
-
-    0 begin
-
-    /options exch def
-    /useropts options def
-    /barcode exch def             % We are given a barcode string
-
-    /includetext false def         % Enable/disable text
-    /textfont /Helvetica def
-    /textsize 12 def
-    /textyoffset -4 def
-    /height 1 def
-    
-    % Parse the input options
-    options {
-        token false eq {exit} if dup length string cvs (=) search
-        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
-    } loop
-    
-    /textfont textfont cvlit def
-    /textsize textsize cvr def
-    /textyoffset textyoffset cvr def
-    /height height cvr def
-    
-    /barlen barcode length def         % Length of the code
-
-    % Add checksum digit to barcode if length is odd
-    barlen 2 mod 0 ne {
-        /pad barlen 1 add string def   % Create pad one bigger than barcode
-        /checksum 0 def
-        0 1 barlen 1 sub {
-           /i exch def
-           /barchar barcode i get 48 sub def
-           i 2 mod 0 ne {
-               /checksum checksum barchar add def
-           } {
-               /checksum checksum barchar 3 mul add def
-           } ifelse
-        } for
-        /checksum 10 checksum 10 mod sub 10 mod def
-        pad 0 barcode putinterval       % Add barcode to the start of the pad
-        pad barlen checksum 48 add put  % Put ascii for checksum at end of pad
-        /barcode pad def                % barcode=pad
-        /barlen barlen 1 add def        % barlen++
-    } if
-
-    % Create an array containing the character mappings
-    /encs
-    [ (3211) (2221) (2122) (1411) (1132)
-      (1231) (1114) (1312) (1213) (3112)
-      (111) (11111) (111)
-    ] def
-
-    % Create a string of the available characters
-    /barchars (0123456789) def
-
-    /sbs barlen 4 mul 11 add string def
-    /txt barlen array def
-
-    % Put the start character
-    sbs 0 encs 10 get putinterval
-
-    % Left side
-    0 1 5 {
-        % Lookup the encoding for the each barcode character
-        /i exch def
-        barcode i 1 getinterval barchars exch search
-        pop                                % Discard true leaving pre
-        length /indx exch def              % indx is the length of pre
-        pop pop                            % Discard seek and post
-        /enc encs indx get def             % Get the indxth encoding
-        sbs i 4 mul 3 add enc putinterval  % Put encoded digit into sbs
-        i 0 eq {      % First digit is before the guard bars
-            txt 0 [barcode 0 1 getinterval -7 textyoffset textfont textsize 2 sub] put
-        } {
-            txt i [barcode i 1 getinterval i 7 mul 4 add textyoffset textfont textsize] put
-        } ifelse
-    } for
-
-    % Put the middle character
-    sbs 6 4 mul 3 add encs 11 get putinterval
-
-    % Right side
-    6 1 11 {
-        % Lookup the encoding for the each barcode character
-        /i exch def
-        barcode i 1 getinterval barchars exch search
-        pop                                % Discard true leaving pre
-        length /indx exch def              % indx is the length of pre
-        pop pop                            % Discard seek and post
-        /enc encs indx get def             % Get the indxth encoding
-        sbs i 4 mul 8 add enc putinterval  % Put encoded digit into sbs
-        i 11 eq {       % Last digit is after guard bars
-            txt 11 [barcode 11 1 getinterval 96 textyoffset textfont textsize 2 sub] put
-        } {
-            txt i [barcode i 1 getinterval i 7 mul 8 add textyoffset textfont textsize] put
-        } ifelse
-    } for
-
-    % Put the end character
-    sbs barlen 4 mul 8 add encs 12 get putinterval
-
-    % Return the arguments
-    /retval 8 dict def
-    retval (ren) (renlinear) put
-    retval (sbs) [sbs {48 sub} forall] put
-    includetext {
-        retval (bhs) [4{height}repeat 10{height .075 sub}repeat height height 10{height .075 sub}repeat 5{height}repeat] put      
-        retval (bbs) [0 0 0 0 10{.075}repeat 0 0 10{.075}repeat 0 0 0 0 0] put
-        retval (txt) txt put
-    } {
-        retval (bhs) [31{height}repeat] put
-        retval (bbs) [31{0}repeat] put
-    } ifelse
-    retval (opt) useropts put
-    retval (borderbottom) 5 put
-    retval
-
-    end
-
-} bind def
-/upca load 0 1 dict put

data/lib/rghost_barcode/ps/upce.ps

@@ -1,157 +0,0 @@
-
-% --DESC: UPC-E
-% --EXAM: 0123456
-% --EXOP: includetext height=0.4
-% --RNDR: renlinear
-/upce {
-
-    0 begin
-
-    /options exch def                   % We are given an option string
-    /useropts options def
-    /barcode exch def                   % We are given a barcode string
-
-    /includetext false def               % Enable/disable text
-    /textfont /Helvetica def
-    /textsize 12 def
-    /textyoffset -4 def
-    /height 1 def
-    
-    % Parse the input options
-    options {
-        token false eq {exit} if dup length string cvs (=) search
-        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
-    } loop
-    
-    /textfont textfont cvlit def
-    /textsize textsize cvr def
-    /textyoffset textyoffset cvr def
-    /height height cvr def
-    
-    /barlen barcode length def          % Length of the code
-
-    % Create an array containing the character mappings
-    /encs
-    [ (3211) (2221) (2122) (1411) (1132)
-      (1231) (1114) (1312) (1213) (3112)
-      (111) (1111111)
-    ] def
-
-    % Create a string of the available characters
-    /barchars (0123456789) def
-
-    /mirrormaps
-    [ (000111) (001011) (001101) (001110) (010011)
-      (011001) (011100) (010101) (010110) (011010)
-    ] def
-
-    % Add checksum digit to barcode if length is odd
-    barlen 2 mod 0 ne {
-        % Derive the equivalent UPC-A for its checksum
-        /upcacode (00000000000) 11 string copy def
-        barcode 6 get 48 sub 2 le {
-            upcacode 1 barcode 1 2 getinterval putinterval
-            upcacode 3 barcode 6 1 getinterval putinterval
-            upcacode 8 barcode 3 3 getinterval putinterval
-        } if
-        barcode 6 get 48 sub 3 eq {
-            upcacode 1 barcode 1 3 getinterval putinterval
-            upcacode 9 barcode 4 2 getinterval putinterval
-        } if
-        barcode 6 get 48 sub 4 eq {
-            upcacode 1 barcode 1 4 getinterval putinterval
-            upcacode 10 barcode 5 1 getinterval putinterval
-        } if
-        barcode 6 get 48 sub 5 ge {
-            upcacode 1 barcode 1 5 getinterval putinterval
-            upcacode 10 barcode 6 1 getinterval putinterval
-        } if
-        /checksum 0 def
-        0 1 10 {
-           /i exch def
-           /barchar upcacode i get 48 sub def
-           i 2 mod 0 ne {
-               /checksum checksum barchar add def
-           } {
-               /checksum checksum barchar 3 mul add def
-           } ifelse
-        } for
-        /checksum 10 checksum 10 mod sub 10 mod def
-        /pad barlen 1 add string def    % Create pad one bigger than barcode
-        pad 0 barcode putinterval       % Add barcode to the start of the pad
-        pad barlen checksum 48 add put  % Put ascii for checksum at end of pad
-        /barcode pad def                % barcode=pad
-        /barlen barlen 1 add def        % barlen++
-    } if
-    /txt barlen array def
-    txt 0 [barcode 0 1 getinterval -7 textyoffset textfont textsize 2 sub] put
-
-    % Determine the mirror map based on checksum
-    /mirrormap mirrormaps barcode barlen 1 sub get 48 sub get def
-
-    % Invert the mirrormap if we are using a non-zero number system
-    barcode 0 get 48 eq {
-        /invt mirrormap length string def
-        0 1 mirrormap length 1 sub {
-            /i exch def
-            mirrormap i get 48 eq {
-                invt i 49 put
-            } {
-                invt i 48 put
-            } ifelse
-        } for
-        /mirrormap invt def
-    } if
-
-    /sbs barlen 2 sub 4 mul 10 add string def
-
-    % Put the start character
-    sbs 0 encs 10 get putinterval
-
-    1 1 6 {
-        /i exch def
-        % Lookup the encoding for the each barcode character
-        barcode i 1 getinterval barchars exch search
-        pop                            % Discard true leaving pre
-        length /indx exch def          % indx is the length of pre
-        pop pop                        % Discard seek and post
-        /enc encs indx get def         % Get the indxth encoding
-        mirrormap i 1 sub get 49 eq {  % Reverse enc if 1 in this position in mirrormap        
-            /enclen enc length def
-            /revenc enclen string def
-            0 1 enclen 1 sub {
-                /j exch def
-                /char enc j get def
-                revenc enclen j sub 1 sub char put
-            } for
-            /enc revenc def
-        } if
-        sbs i 1 sub 4 mul 3 add enc putinterval   % Put encoded digit into sbs
-        txt i [barcode i 1 getinterval i 1 sub 7 mul 4 add textyoffset textfont textsize] put
-    } for
-
-    txt 7 [barcode 7 1 getinterval 6 7 mul 11 add textyoffset textfont textsize 2 sub] put
-
-    % Put the end character
-    sbs barlen 2 sub 4 mul 3 add encs 11 get putinterval
-
-    % Return the arguments
-    /retval 8 dict def
-    retval (ren) (renlinear) put
-    retval (sbs) [sbs {48 sub} forall] put
-    includetext {
-        retval (bhs) [height height 12{height .075 sub}repeat height height height] put      
-        retval (bbs) [0 0 12{.075}repeat 0 0 0] put    
-        retval (txt) txt put
-    } {
-        retval (bhs) [17{height}repeat] put      
-        retval (bbs) [17{0}repeat] put    
-    } ifelse
-    retval (opt) useropts put
-    retval (borderbottom) 5 put
-    retval
-
-    end
-
-} bind def
-/upce load 0 1 dict put

data/lib/rghost_barcode/rghost_barcode_classes.rb

@@ -1,96 +0,0 @@
-class  RGhost::Barcode::Auspost < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Azteccode < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Code11 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Code128 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Code2of5 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Code39 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Code93 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Datamatrix < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Ean13 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Ean2 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Ean5 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Ean8 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Interleaved2of5 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Isbn < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Kix < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Maxicode < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Msi < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Onecode < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Pdf417 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Pharmacode < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Plessey < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Postnet < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Qrcode < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Rationalizedcodabar < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Raw < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Royalmail < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Rss14 < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Rssexpanded < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Rsslimited < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Symbol < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Upca < RGhost::Barcode::Base
- 
-end
-class  RGhost::Barcode::Upce < RGhost::Barcode::Base
- 
-end

data/lib/rghost_barcode/rghost_barcode_examples.rb

@@ -1,35 +0,0 @@
-@codes={
-  'plessey' => ['01234ABCD',{}],
-  'isbn' => ['978-1-56592-479',{:guard=> {:whitespace => true}}],
-  'rsslimited' => ['00978186074271',{:format => 1}],
-  'pdf417' => ['^453^178^121^239',{:columns => 2,  :rows=> 10}],
-  'royalmail' => ['LE28HS9Z',{}],
-  'ean13' => ['977147396801',{:guard=> {:whitespace => true}}],
-  'code11' => ['0123456789',{}],
-  'symbol' => ['fima',{}],
-  'qrcode' => ['000100000010000000001100010101100110000110000',{}],
-  'msi' => ['0123456789',{}],
-  'upca' => ['78858101497',{}],
-  'pharmacode' => ['117480',{}],
-  'kix' => ['1231FZ13XHS',{}],
-  'datamatrix' => ['^142^164^186',{}],
-  'rssexpanded' => ['000000010011001010100001000000010000',{}],
-  'ean2' => ['05',{}],
-  'rationalizedcodabar' => ['A0123456789B',{}],
-  'upce' => ['0123456',{}],
-  'ean5' => ['90200',{}],
-  'code2of5' => ['01234567',{}],
-  'code93' => ['THIS IS CODE 93',{}],
-  'postnet' => ['012345',{}],
-  'maxicode' => ['^059^042^041^059^040^03001^02996152382802^029840^029001^0291Z00004951^029UPSN^02906X610^029159^0291234567^0291^0471^029^029Y^029634 ALPHA DR^029PITTSBURGH^029PA^030^062^004^063', {:mode=> 2}],
-  'raw' => ['331132131313411122131311333213114131131221323',{}],
-  'onecode' => ['0123456709498765432101234567891',{}],
-  'code39' => ['THIS IS CODE 39',{}],
-  'auspost' => ['5956439111ABA 9',{}],
-  'azteccode' => ['00100111001000000101001101111000010100111100101000000110',{:fofrmat=> :compact}],
-  'ean8' => ['01335583',{}],
-  'interleaved2of5' => ['24012345678905',{}],
-  'code128' => ['^104^102Count^0990123456789^101!',{}],
-  'rss14' => ['24012345678905',{}]
-
-}

data/lib/teste_main.rb

@@ -1,94 +0,0 @@
-require 'rubygems'
-
-require 'rghost_barcode'
-
-
-#puts RGhost::Barcode::Text.new(:size  => 10,  :font => "Courier", :offset => [0,0], :x => 0, :y => 0, :color => '#000000',  :enable => [:text, :check, :checkintext]).inspect
-#puts RGhost::Barcode::Guard.new( :height => 1,   :width => 10, :left=>3, :right => 4, :left_y => 5, :right_y => 6 ).inspect
-#puts RGhost::Barcode::Border.new( :width => 1, :top => 0, :right => 0, :bottom => 0, :left => 0, :color => '#000000' ).inspect
-
-p={:text => {  :size  => 10,  :font => "Courier", :offset => [0,0], :x => 0, :y => 0, :color => '#000000',  :enable => [:text, :check, :checkintext]},
-  :guard => {  :height => 1,   :width => 10, :left=>3, :right => 4, :left_y => 5, :right_y => 6 },
-  :border =>{  :width => 1, :top => 0, :right => 0, :bottom => 0, :left => 0, :color => '#000000'},
-  :height => 1, :width => 10,
-  :color => '000000', :background => 'FFFFFF',
-  :x => :limit_left, :y => :current_row,
-  :inkspread => 0.5
-}
-
-
-#puts RGhost::Barcode::Interleaved2of5.new("KJAHDFJASHDFAKSJDFASD",p).ps
-
-#d=RGhost::Document.new :paper => [15,8], :margin_left => 2
-##d.set RGhost::Barcode::Code39.new("ASDHAJSDF", :x => 1, :y => 5, :color => 'FF0000', :border =>{:color => '00FF00'}, :text =>{:size => 10, :color => '553297' }, :height => 1,  :width => 4.545)
-##d.barcode_isbn("978-1-56592-479", :x => 1, :y => 5, :color => 'FF0000', :border =>{:color => '00FF00'}, :text =>{:size => 10, :color => '553297' }, :height => 1,  :width => 4.545)
-##d.barcode_isbn("978-1-56592-479", :x => 1, :y => 10, :text =>{:size => 10})
-#d.define_template :barcode_template,  File.join(File.dirname(__FILE__),'ps',"barcode_template.eps")
-#d.before_page_create do
-#  use_template :barcode_template
-#end
-#@codes.each do |k,v|
-#  
-#  #d.rotate 90
-#  d.show "Barcode Name: #{k}"
-#  
-#  d.jump_rows 7
-#  
-#  opt=v[1].merge(  :text => {:size => 10}) 
-#  #d.translate :x => 2
-#  d.send "barcode_#{k}".to_sym,v[0],opt.dup
-#  #d.translate :x => -2
-#  d.jump_rows 2
-#  d.show "Code String: #{v[0]}"
-#  d.next_row
-#  d.show "Options: #{opt.inspect}"
-#  d.next_page
-#end
-#text=%Q{
-#<big>Barcode Writer License</big><br/>
-#Anybody is free to use and develop this code as they see fit, under the terms of the permissive MIT/X-Consortium license(http://postscriptbarcode.googlecode.com/svn/trunk/LICENSE), which requires that developers attribute any derivative code to this project in both the source code and documentation. As such I take no liability for its use or misuse.<br/><br/>Thanks a lot Terry!<br/> <i>Shairon Toledo</i>
-#
-#}
-#d.text text
-
-f="/tmp/fonte#{rand*100}.pdf"
-RGhost::Config.barcode_examples.render :pdf, :filename => "/tmp/rghost_barcode_catalog.pdf", :debug => true, :logfile => '/tmp/teste.txt'
-exit
-include RGhost
-doc=Document.new :paper => [10.8,4], :margin => 0.3
-doc.jump_rows 5
-#doc.barcode_datamatrix '^142^164^186',:columns => 32,  :rows=> 32
-#doc.barcode_pdf417 '^453^178^121^239', :columns => 2,  :rows=> 10
-#doc.barcode_interleaved2of5 '24012345678905',:text => {:size => 10, :offset => [0,-10], :enable => [:text, :check, :checkintext] }
-#doc.barcode_interleaved2of5 '24012345678905',:rotate => 90, :x => 4, 
-#  :text => {
-#  :size => 10,
-#  :offset => [0,-10], 
-#  :enable => [:text, :check, :checkintext] 
-#  
-#}
-#doc.barcode_code39 'THIS IS CODE 39',:text => {:size => 10, :enable=>[:check] }
-      
-f="/local/junk/bc/f5.png"
-#doc.render :png, :filename => f, :resolution => 120
-=begin
-    'code11' => ['0123456789',{:text => {:size => 10}}],
-    'symbol' => ['fima',{:text => {:size => 10}}],
-    'qrcode' => ['000100000010000000001100010101100110000110000',{:text => {:size => 10}}],
-=end
-#RGhost::Config::GS[:extensions] << "/tmp/foo"
-
-#RGhost::Config.environment_fonts.render :pdf, :filename => 'mycatalog.pdf'
-
-
-`evince  #{f}`
-
-
-
-
-
-
-
-
-
-