<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:p="urn:schemas-microsoft-com:office:powerpoint" xmlns:a="urn:schemas-microsoft-com:office:access" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" xmlns:b="urn:schemas-microsoft-com:office:publisher" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:odc="urn:schemas-microsoft-com:office:odc" xmlns:oa="urn:schemas-microsoft-com:office:activation" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:q="http://schemas.xmlsoap.org/soap/envelope/" xmlns:rtc="http://microsoft.com/officenet/conferencing" xmlns:D="DAV:" xmlns:Repl="http://schemas.microsoft.com/repl/" xmlns:mt="http://schemas.microsoft.com/sharepoint/soap/meetings/" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ppda="http://www.passport.com/NameSpace.xsd" xmlns:ois="http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir="http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:dsp="http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc="http://schemas.microsoft.com/data/udc" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sub="http://schemas.microsoft.com/sharepoint/soap/2002/1/alerts/" xmlns:ec="http://www.w3.org/2001/04/xmlenc#" xmlns:sp="http://schemas.microsoft.com/sharepoint/" xmlns:sps="http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:udcs="http://schemas.microsoft.com/data/udc/soap" xmlns:udcxf="http://schemas.microsoft.com/data/udc/xmlfile" xmlns:udcp2p="http://schemas.microsoft.com/data/udc/parttopart" xmlns:wf="http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:dsss="http://schemas.microsoft.com/office/2006/digsig-setup" xmlns:dssi="http://schemas.microsoft.com/office/2006/digsig" xmlns:mdssi="http://schemas.openxmlformats.org/package/2006/digital-signature" xmlns:mver="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:mrels="http://schemas.openxmlformats.org/package/2006/relationships" xmlns:spwp="http://microsoft.com/sharepoint/webpartpages" xmlns:ex12t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:ex12m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:pptsl="http://schemas.microsoft.com/sharepoint/soap/SlideLibrary/" xmlns:spsl="http://microsoft.com/webservices/SharePointPortalServer/PublishedLinksService" xmlns:Z="urn:schemas-microsoft-com:" xmlns:st="" xmlns="http://www.w3.org/TR/REC-html40"> <head> <meta http-equiv=Content-Type content="text/html; charset=us-ascii"> <meta name=Generator content="Microsoft Word 12 (filtered medium)"> <style>  </style>  </head> <body lang=EN-US link=blue vlink=purple> <div class=Section1> <o:p> </o:p> I am attempting to create reports using (the perl bindings for) Gtk2/Cairo/Pango. I don’t think it should be too hard to read my code if you aren’t familiar with perl though.  Not knowing which was the best place to post this, I sent this to both the Gtk and the Cairo mailing lists.<o:p></o:p> <o:p> </o:p>  My reports should be able to write to a print operation, or a cairo surface. This seems simple enough – just pass  in the Cairo context you want to write to.  The problem I am running into is when draw text on a context from a  print operation – the text appears extremely tiny on the page (look at print_op.pdf).<o:p></o:p> <o:p> </o:p> When drawing to a Cairo Surface – the output is as expected (see surface.pdf/surface.ps).<o:p></o:p> <o:p> </o:p> surface_po_diff.pl is the script that created these files so you can run it yourself.<o:p></o:p> <o:p> </o:p> What is going on here? I know that the suggested way of printing text to a print operation is get a pango layout from the GtkPrintContext using gtk_print_context_create_pango_layout ()   ($print_context->create_pango_layout from perl) and then use that.<o:p></o:p> <o:p> </o:p> But I really don’t want my reports to need to know about a GtkPrintContext – ideally they should be able to operate with just a CairoContext.<o:p></o:p> <o:p> </o:p> My gut says there is some sort of transformation going on here, but I’m not sure where are how to alter it. (I’m rather new to Cairo/Pango programming). I have tried playing with the set_matrix and set_font_matrix of the cairo context but didn’t yield any results. I may not be using them correctly.<o:p></o:p> <o:p> </o:p> How can write this code, so the print_text function prints the same size on the print operation and a cairo surface that I create myself.<o:p></o:p> <o:p> </o:p> <o:p> </o:p> Thanks in advance for any input!<o:p></o:p> <o:p> </o:p> <![if !supportLists]>-          <![endif]>Jeffrey Ray<o:p></o:p> <o:p> </o:p> <o:p> </o:p> <o:p> </o:p> # prints to print driver - text is tiny<o:p></o:p> my $window = Gtk2::Window->new;<o:p></o:p> my $po = Gtk2::PrintOperation->new;<o:p></o:p> $po->set_n_pages( 1 );<o:p></o:p> <o:p> </o:p> $po->signal_connect('draw-page' => sub {<o:p></o:p>     my ($po, $print_context, $number) = @_;<o:p></o:p>     my $cr = $print_context->get_cairo_context;<o:p></o:p>     print_text($cr);<o:p></o:p> });<o:p></o:p> $po->run('print-dialog', $window);<o:p></o:p> <o:p> </o:p> <o:p> </o:p> <o:p> </o:p> # creates a pdf file, text is large<o:p></o:p> my $surface = Cairo::PdfSurface->create ( 'surface.pdf', 612, 792);<o:p></o:p> my $cr = Cairo::Context->create( $surface );<o:p></o:p> print_text($cr);<o:p></o:p> $cr->show_page;<o:p></o:p> $surface->finish;<o:p></o:p> <o:p> </o:p> # creates a ps file, text is large<o:p></o:p> $surface = Cairo::PdfSurface->create ( 'surface.ps', 612, 792);<o:p></o:p> $cr = Cairo::Context->create( $surface );<o:p></o:p> print_text($cr);<o:p></o:p> $cr->show_page;<o:p></o:p> $surface->finish;<o:p></o:p> <o:p> </o:p> <o:p> </o:p> <o:p> </o:p> sub print_text {<o:p></o:p>     my $cr = shift;<o:p></o:p>     <o:p></o:p>     my $layout = Pango::Cairo::create_layout( $cr );<o:p></o:p>     $layout->set_markup( 'Foo:Bar' );<o:p></o:p>     <o:p></o:p>     my $attrlist = Pango::AttrList->new;<o:p></o:p>     my $font = Pango::AttrFontDesc->new( Pango::FontDescription->from_string('calibri,arial 10') );<o:p></o:p>     $attrlist->insert($font);<o:p></o:p>     $layout->set_attributes( $attrlist );<o:p></o:p>     <o:p></o:p>     Pango::Cairo::update_layout( $cr, $layout );    <o:p></o:p>     Pango::Cairo::show_layout( $cr, $layout );<o:p></o:p> }<o:p></o:p> <o:p> </o:p> </div> </body> </html>