/*******************************************************************************

    Program:        pdf_pl.p
    
    Description:    Sample PDF generation using Polish codepage.

*******************************************************************************/

{ pdf_inc.i "THIS-PROCEDURE"}

DEFINE VARIABLE Vrow        AS INTEGER NO-UNDO.

/* Create stream for new PDF file */
RUN pdf_new("Spdf","pdf_pl.pdf").

/* Instantiate a New Page */
RUN pdf_new_page("Spdf").

/* Reset Page Positioning etc */
Vrow   = pdf_PageHeight("Spdf") - pdf_TopMargin("Spdf") - 10.

RUN pdf_set_base14_codepage("Spdf", SESSION:CPINTERNAL ).

RUN pdf_set_font("Spdf","Times-Roman",10.0).
RUN pdf_text_xy ("Spdf","Times-Roman", 200, Vrow).
Vrow = Vrow - 20.
RUN outText.
RUN pdf_set_font("Spdf","Helvetica",10.0).
RUN pdf_text_xy ("Spdf","Helvetica", 200, Vrow).
Vrow = Vrow - 20.
RUN outText.
RUN pdf_set_font("Spdf","Courier",10.0).
RUN pdf_text_xy ("Spdf","Courier", 200, Vrow).
Vrow = Vrow - 20.
RUN outText.

RUN pdf_close("Spdf").

PROCEDURE outText :
  RUN pdf_text_xy ("Spdf","MĄDRZYMY SIĘ, OLEŃKO", 80, Vrow - 0).
  RUN pdf_text_xy ("Spdf","Żałować należałoby tego, że Śródborów nie posiadał", 40, Vrow - 20).
  RUN pdf_text_xy ("Spdf","skrzyń na dżdżownice. Ówcześni właściciele zupełnie", 40, Vrow - 40).
  RUN pdf_text_xy ("Spdf","się tym nie przejmowali. Źrebaki deptały po biednych", 40, Vrow - 60).
  RUN pdf_text_xy ("Spdf","dżdżownicach, pełzających wśród ździebełek słomy.", 40, Vrow - 80).
  RUN pdf_text_xy ("Spdf","Ćmy straszyły je nocą. Łatwe życie dżdżownic", 40, Vrow - 100).
  RUN pdf_text_xy ("Spdf","to przebrzmiały mit!", 40, Vrow - 120).
  Vrow = Vrow - 140.
END PROCEDURE.