GNOME Print Perl script

#!/usr/bin/perl -w

#TITLE: Gnome Print sample

#REQUIRES: Gtk Gnome GnomePrint

use Gnome::Print;

init Gnome $0, '0.1';

Gtk::Widget->set_default_colormap(Gtk::Gdk::Rgb->get_cmap());

Gtk::Widget->set_default_visual(Gtk::Gdk::Rgb->get_visual());

$file = shift || "duck.jpeg";

$pixbuf = Gtk::Gdk::Pixbuf->new_from_file($file);

@slanted = (0.9, 0.1, -0.8, 0.9, 0, 0);

$print_master = new Gnome::PrintMaster;

$context = $print_master->get_context;

$context->beginpage("APageName");

# test gray and rgb images

$width  = 256;

$height = 120;

$image = pack("C*", 0..$width-1) x $height;

$context->gsave;

$context->concat($width, 0, 0, -$height, 250, 200);

$context->grayimage($image, $width, $height);

$context->grestore;

# whack an pretty image up

$context->moveto(250, 350);

$context->gsave;

$context->concat(100, 0, 0, 100, 350, 440);

$context->pixbuf($pixbuf);

$context->grestore;

# a line

$context->moveto(100, 100);

$context->lineto(200, 200);

$context->stroke;

# Text on a slant

$context->setfont(Gnome::Font->new_closest("Times", 'bold', 1, 20));

$context->gsave();

$context->moveto(150, 400);

$context->concat(@slanted);

$context->show("Slanted text, Times, bold 20");

$context->grestore();

# A rotated string thing

$context->moveto(250, 600);

$context->setrgbcolor(1,0.1,0);

foreach (map {$_*30} 0 .. 6) {

$context->gsave();

$context->concat(Gnome::Print->affine_rotate($_));

$context->show(" LWE August 2001 ...");

$context->grestore();

}

$context->showpage;

$print_master->close;

# Show the preview ...

$preview = new Gnome::PrintMasterPreview ($print_master, 'Gnome::Print from perl');

$preview->signal_connect('destroy', sub {Gtk->main_quit;});

$preview->show;

main Gtk;

UTF-8(7)            Linux Programmer's Manual            UTF-8(7)

NAME

UTF-8 - an ASCII compatible multibyte Unicode encoding

DESCRIPTION

The  Unicode  character  set occupies a 16-bit code space.The most obvious Unicode encoding (known  as  UCS-2)  con-sists of a sequence of 16-bit words. Such strings can con-tain as parts of many 16-bit characters bytes like '\0' or'/'  which have a special meaning in filenames and other Clibrary function parameters.  In addition, the majority of UNIX tools expects ASCII files and can't read 16-bit words as characters without major modifications. For these  reasons, UCS-2 is not a suitable external encoding of Unicode

in filenames, text files, environment variables, etc.  The ISO  10646  Universal  Character  Set (UCS), a superset of Unicode, occupies even a 31-bit code space and the obvious UCS-4  encoding   for  it (a sequence of 32-bit words) has the same problems.

The UTF-8 encoding of Unicode and UCS does not have  these problems  and is the way to go for using the Unicode char-acter set under Unix-style operating systems.

PROPERTIES

The UTF-8 encoding has the following nice properties:

ENCODING

The following byte sequences are used to represent a char-

acter. The sequence to be used depends  on  the  UCS  code

number of the character:

0x00000000 - 0x0000007F:

   0xxxxxxx

0x00000080 - 0x000007FF:

   110xxxxx 10xxxxxx

0x00000800 - 0x0000FFFF:

   1110xxxx 10xxxxxx 10xxxxxx

0x00010000 - 0x001FFFFF:

   11110xxx 10xxxxxx 10xxxxxx 10xxxxxx

0x00200000 - 0x03FFFFFF:

   111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

0x04000000 - 0x7FFFFFFF:

   1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

The  xxx  bit  positions  are  filled with the bits of the character code number in binary representation.  Only  the shortest  possible  multibyte sequence which can represent the code number of the character can be used.

EXAMPLES

The Unicode character 0xa9  =  1010  1001  (the  copyright

sign) is encoded in UTF-8 as

11000010 10101001 = 0xc2 0xa9

and  character  0x2260  =  0010  0010  0110 0000 (the "not

equal" symbol) is encoded as:

11100010 10001001 10100000 = 0xe2 0x89 0xa0

AUTHOR: Markus Kuhn <mskuhn@cip.informatik.uni-erlangen.de>

SEE ALSO unicode(7)