Fl_PostScript_File_Device Binding Map

Back to Index
Package name
Fl_PostScript_File_Device FLTK.Devices.Surface.Paged.Postscript
Types
Fl_PostScript_File_Device Postscript_File_Device
  Postscript_File_Device_Reference
FILE * File_Type
Errors
int File_Open_Error
int File_Close_Error
int User_Cancel_Error
Static Attributes
static const char * class_id = "Fl_PostScript_File_Device";
Deprecated, use runtime tag checks instead. 
static const char * file_chooser_title = "Select a .ps file";

function Get_File_Chooser_Title
    return String;

procedure Set_File_Chooser_Title
       (Value : in String);
Constructors
Fl_PostScript_File_Device();

function Create
    return Postscript_File_Device;
Functions and Procedures
const char * class_name();
Deprecated, use runtime tag checks instead. 
void end_job(void);

procedure End_Job
       (This : in out Postscript_File_Device);

int end_page(void);

procedure End_Page
       (This : in out Postscript_File_Device);

void margins(int *left, int *top, int *right, int *bottom);

procedure Get_Margins
       (This                     : in     Postscript_File_Device;
        Left, Top, Right, Bottom :    out Integer);

void origin(int *x, int *y);

procedure Get_Origin
       (This : in     Postscript_File_Device;
        X, Y :    out Integer);

void origin(int x, int y);

procedure Set_Origin
       (This : in out Postscript_File_Device;
        X, Y : in     Integer);

int printable_rect(int *w, int *h);

procedure Get_Printable_Rect
       (This : in     Postscript_File_Device;
        W, H :    out Integer);

void rotate(float angle);

procedure Rotate
       (This    : in out Postscript_File_Device;
        Degrees : in     Float);

void scale(float scale_x, float scale_y=0);

procedure Scale
       (This   : in out Postscript_File_Device;
        Factor : in     Float);

procedure Scale
       (This               : in out Postscript_File_Device;
        Factor_X, Factor_Y : in     Float);

int start_job(FILE *ps_output, int pagecount,
    enum Fl_Paged_Device::Page_Format format=Fl_Paged_Device::A4,
    enum Fl_Paged_Device::Page_Layout layout=Fl_Paged_Device::PORTRAIT);

procedure Start_Job
       (This   : in out Postscript_File_Device;
        Output : in     File_Type'Class;
        Count  : in     Natural := 0;
        Format : in     Page_Format := A4;
        Layout : in     Page_Layout := Portrait)
with Pre => Output.Is_Open;

int start_job(int pagecount,
    enum Fl_Paged_Device::Page_Format format=Fl_Paged_Device::A4,
    enum Fl_Paged_Device::Page_Layout layout=Fl_Paged_Device::PORTRAIT);

procedure Start_Job
       (This   : in out Postscript_File_Device;
        Count  : in     Natural := 0;
        Format : in     Page_Format := A4;
        Layout : in     Page_Layout := Portrait);

int start_job(int pagecount, int *from, int *to);

procedure Start_Job
       (This  : in out Postscript_File_Device;
        Count : in     Natural := 0);

procedure Start_Job
       (This     : in out Postscript_File_Device;
        Count    : in     Natural := 0;
        From, To :    out Positive);

int start_page(void);

procedure Start_Page
       (This : in out Postscript_File_Device);

void translate(int x, int y);

procedure Translate
       (This             : in out Postscript_File_Device;
        Delta_X, Delta_Y : in     Integer);

void untranslate(void);

procedure Untranslate
       (This : in out Postscript_File_Device);
Protected Functions and Procedures
Fl_PostScript_Graphics_Driver * driver();

function Get_Postscript_Driver
       (This : in out Postscript_File_Device)
    return FLTK.Devices.Graphics.Graphics_Driver_Reference;