Attachment 149910 Details for Bug 231916 – postfix output

postfix output

t.ps (text/plain), 4.80 KB, created by Patrice Dumas on 2007-03-13 09:02:36 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Patrice Dumas

Created: 2007-03-13 09:02:36 UTC

Size: 4.80 KB

patch

obsolete

>%!PS-Adobe-3.0
>%%Title: t.txt
>%%Creator: paps version 0.6.3 by Dov Grobgeld
>%%Pages: (atend)
>%%BoundingBox: 0 0 595 841
>%%BeginProlog
>%%Orientation: Portrait
>/papsdict 1 dict def
>papsdict begin
>
>/inch {72 mul} bind def
>/mm {1 inch 25.4 div mul} bind def
>
>% override setpagedevice if it is not defined
>/setpagedevice where {
>    pop % get rid of its dictionary
>    /setpagesize { 
>       3 dict begin
>         /pageheight exch def 
>         /pagewidth exch def
>         /orientation 0 def
>         % Exchange pagewidth and pageheight so that pagewidth is bigger
>         pagewidth pageheight gt {  
>             pagewidth
>             /pagewidth pageheight def
>             /pageheight exch def
>             /orientation 3 def
>         } if
>         2 dict
>         dup /PageSize [pagewidth pageheight] put
>         dup /Orientation orientation put
>         setpagedevice 
>       end
>    } def
>}
>{
>    /setpagesize { pop pop } def
>} ifelse
>/duplex {
>    statusdict /setduplexmode known 
>    { statusdict begin setduplexmode end } {pop} ifelse
>} def
>/tumble {
>    statusdict /settumble known
>   { statusdict begin settumble end } {pop} ifelse
>} def
>% Turn the page around
>/turnpage {
>  90 rotate
>  0 pageheight neg translate
>} def
>% User settings
>/pagewidth 595 def
>/pageheight 841 def
>pagewidth pageheight setpagesize
>/column_width 523 def
>/bodyheight 769 def
>/lmarg 36 def
>/ytop 805 def
>/do_separation_line true def
>/do_landscape false def
>/do_tumble true def
>/do_duplex true def
>% Procedures to translate position to first and second column
>/lw 20 def % whatever
>/setnumcolumns {
>    /numcolumns exch def
>    /firstcolumn { /xpos lmarg def /ypos ytop def} def
>    /nextcolumn { 
>      do_separation_line {
>          xpos column_width add gutter_width 2 div add % x start
>           ytop lw add moveto              % y start
>          0 bodyheight lw add neg rlineto 0 setlinewidth stroke
>      } if
>      /xpos xpos column_width add gutter_width add def 
>      /ypos ytop def
>    } def
>} def
>
>1 setnumcolumns
>/showline {
>    /y exch def
>    /s exch def
>    xpos y moveto 
>    column_width 0 rlineto stroke
>    xpos y moveto /Helvetica findfont 20 scalefont setfont s show
>} def
>/paps_bop {  % Beginning of page definitions
>    papsdict begin
>    gsave
>    do_landscape {turnpage} if 
>    firstcolumn
>    end
>} def
>
>/paps_eop {  % End of page cleanups
>    grestore    
>} def
>%%BeginProlog
>/papsdict 1 dict def
>papsdict begin
>
>/conicto {
>    /to_y exch def
>    /to_x exch def
>    /conic_cntrl_y exch def
>    /conic_cntrl_x exch def
>    currentpoint
>    /p0_y exch def
>    /p0_x exch def
>    /p1_x p0_x conic_cntrl_x p0_x sub 2 3 div mul add def
>    /p1_y p0_y conic_cntrl_y p0_y sub 2 3 div mul add def
>    /p2_x p1_x to_x p0_x sub 1 3 div mul add def
>    /p2_y p1_y to_y p0_y sub 1 3 div mul add def
>    p1_x p1_y p2_x p2_y to_x to_y curveto
>} bind def
>/start_ol { gsave } bind def
>/end_ol { closepath fill grestore } bind def
>/draw_char { fontdict begin gsave 0,001000 dup scale last_x last_y translate 1,000000 1,000000 scale load exec end grestore} def
>/goto_xy { fontdict begin /last_y exch def /last_x exch def end } def
>/goto_x { fontdict begin /last_x exch def end } def
>/fwd_x { fontdict begin /last_x exch last_x add def end } def
>/c /curveto load def
>/x /conicto load def
>/l /lineto load def
>/m /moveto load def
>end
>/paps_exec {
>  1 dict begin
>  /ps exch def
>  /len ps length def
>  /pos 0 def
>
>  % Loop over all the characters of the string
>  {
>    pos len eq {exit} if
>
>    % Get character at pos
>    /ch ps pos 1 getinterval def
>    
>    % check for +
>    (+) ch eq {
>      /pos 1 pos add def
>      /xp ps pos 8 getinterval cvi def
>      /yp ps pos 8 add 8 getinterval cvi def
>      /pos 16 pos add def
>      papsdict begin xp yp goto_xy end
>    } {
>      (*) ch eq {
>        /pos 1 pos add def
>        /xp ps pos 8 getinterval cvi def
>        /pos 8 pos add def
>        papsdict begin xp goto_x end
>      } { (>) ch eq {
>          /pos 1 pos add def
>          /xp ps pos 4 getinterval cvi def
>          /pos 4 pos add def
>          papsdict begin xp 2 mul fwd_x end
>        } { (-) ch eq {
>            /pos 1 pos add def
>            /xp ps pos 4 getinterval cvi def
>            /pos 4 pos add def
>            papsdict begin xp neg 2 mul fwd_x end
>          } {
>              % Must be a 3 char sym. Load and exec
>              /name ps pos 3 getinterval def
>              papsdict begin name draw_char end
>              /pos 3 pos add def
>            } ifelse
>          } ifelse
>        } ifelse
>    } ifelse
>  } loop
>  end
>} def
>/fontdict 1 dict def
>papsdict begin fontdict begin
>/AAA { start_ol
>3537 7732 m
>2314 3215 l
>4759 3215 l
>3537 7732 l
>2837 8784 m
>4243 8784 l
>6868 0 l
>5667 0 l
>5036 2304 l
>2032 2304 l
>1413 0 l
>212 0 l
>2837 8784 l
>7056 fwd_x
>end_ol
> } def
>end end
>%%EndPrologue
>%%EndPrologue
>%%Page: 1 1
>paps_bop
>(+   36000  790960AAAAAAAAA)paps_exec
>paps_eop
>showpage
>%%Pages: 1
>%%Trailer
>%%EOF

Actions: View

Attachments on bug 231916: 149910