#!/usr/bin/perl -w
#
# Example 10-1. Using Text::PDF 

use Text::PDF::File;
use Text::PDF::Page;   
use Text::PDF::SFont;

my $doc = Text::PDF::File->new;     
my $page_root = new Text::PDF::Pages($doc);
my $page = new Text::PDF::Page($doc, $page_root); 
my $page2 = new Text::PDF::Page($doc, $page_root); 
my $font = new Text::PDF::SFont($doc, 'Times-Roman', 'Times');
my $font2 = new Text::PDF::SFont($doc, 'Helvetica', 'Helv');

$page_root->bbox(0, 0, 612, 792);     
$page_root->add_font($font); 
$page_root->add_font($font2); 

my $stream1 = <<ENDSTREAM; 
BT                          % Begin text block 
  150 500 Td                % Move to (150, 500)
  /Times 72 Tf              % Use 72 pt Times-Roman 
  (The best) Tj             % Place a string
  1 Tr                      % Change the stroke mode
  0 -72 TD                  % Move to next line
  (sauce) Tj                % Place a string
  0 Tr                      % Change stroke mode
  T*                        % Move to next line
  (is a good) Tj            % Place a string
  T*                        % Move to next line
  (applesauce)Tj            % Place a string
ET                          % End text block
ENDSTREAM

my $stream2 = <<ENDSTREAM;
255 0 0 rg                  % Change fill color to red                   
BT                          % Begin text block
  175 450 Td                % Move to (175, 450)
  /Helv 12 Tf               % Use 32 pt Helvetica
  (Now is the winter) Tj    % Place a string
  ( of our discotheque) Tj  % Place a string
ET                          % End text block

ENDSTREAM

$page->add($stream1);
$page2->add($stream2);
$doc->out_file("example10-5.pdf");