Re: Creating macro for inline placement of pdf images

[hbezemer]

Dear Peter,

Thank you for your eloborate answer.
I will look into it and give a heads up when I got it working.

Regards!

Hans

Peter Schaffter <peter@schaffter.ca> wrote:

> Hans --
> 
> > What would be the best approach to create a macro which inserts a
> > image inline?
> 
> I field this question a lot from mom users.  Here's the solution I
> suggest.  It's mom-specific but should help.  Basically, you
> create a diversion to hold the graphic, map the diversion to a
> character with .char, then create a string that outputs the graphic
> "character" with vertical and horizontal adjustments derived from
> the depth and width of the graphic.
> 
> .\" Begin inline-graphic template
> .
> .TITLE "Inline graphic example
> .PRINTSTYLE TYPESET
> .\" PDFIMAGEs are collected for inclusion in the List of Figures,
> .\" which we don't want for inline graphics.  The internal macro
> .\" that handles collection is PDF_TARGET.
> .
> .\" Rename PDF_TARGET to something else.
> .rn PDF_TARGET PDF_TARGET_OLD
> .
> .\" Re-define PDF_TARGET to execute the original only if the
> .\" no-target flag hasn't been set.
> .de PDF_TARGET
> . if !\\n[no-target] .PDF_TARGET_OLD
> ..
> .
> .\" Step 1: Create a diversion to hold the graphic.
> .di graphic:1
> . nr width:1 20p \" image width, needed for string 'graphic:1'
> . nr depth:1 24p \" image depth, needed for string 'graphic:1'
> . nr no-target 1
> . PDF_IMAGE -L penguin-small.pdf \n[width:1]u \n[depth:1]u
> . rr no-target
> .di
> .
> .\" Step 2: Map the diversion to a character.
> .char \[graphic:1] \*[graphic:1]
> .
> .\" Step 3: Define a string incorporating the vertical
> .\" raise amount and width of the graphic.
> .ds graphic:1 \v'-\n[depth:1]u'\[graphic:1]\h'\n[width:1]u'
> .
> .START
> .PP
> Lorem ipsum \*[graphic:1] dolor sit amet.
> .
> .\" End inline-graphic template
> 
> I'm attaching a pdf of the template.
> 
> -- 
> Peter Schaffter
> https://www.schaffter.ca