    class
    	EV_MODEL_POSTSCRIPT_PROJECTOR

    General
    	cluster: interface
    	description: "Projection to Postscript files."
    	keywords: "projector, events, postscript"
    	create: make_with_filename

    Ancestors
    	EV_MODEL_DRAWER*
    	EV_MODEL_PROJECTION_ROUTINES*
    	EV_MODEL_PROJECTOR*
    	EV_POSTSCRIPT_PAGE_CONSTANTS

    Queries
    	A0: INTEGER_32
    	A1: INTEGER_32
    	A2: INTEGER_32
    	A3: INTEGER_32
    	A4: INTEGER_32
    	A5: INTEGER_32
    	A6: INTEGER_32
    	A7: INTEGER_32
    	A8: INTEGER_32
    	A9: INTEGER_32
    	B0: INTEGER_32
    	B1: INTEGER_32
    	B10: INTEGER_32
    	B2: INTEGER_32
    	B3: INTEGER_32
    	B4: INTEGER_32
    	B5: INTEGER_32
    	B6: INTEGER_32
    	B7: INTEGER_32
    	B8: INTEGER_32
    	B9: INTEGER_32
    	C5envelope: INTEGER_32
    	Comm10envelope: INTEGER_32
    	Default_bottom_margin: INTEGER_32
    	Default_colors: EV_STOCK_COLORS
    	Default_left_margin: INTEGER_32
    	Dlenvelope: INTEGER_32
    	Executive: INTEGER_32
    	Folio: INTEGER_32
    	is_projecting: BOOLEAN
    	Ledger: INTEGER_32
    	Legal: INTEGER_32
    	Letter: INTEGER_32
    	offset_x: INTEGER_32
    	offset_y: INTEGER_32
    	page_height (a_size: INTEGER_32; landscape: BOOLEAN): INTEGER_32
    	page_width (a_size: INTEGER_32; landscape: BOOLEAN): INTEGER_32
    	Tabloid: INTEGER_32
    	valid_page_size (a_size: INTEGER_32): BOOLEAN
    	world: EV_MODEL_WORLD

    Commands
    	draw_figure_arc (arc: EV_MODEL_ARC)
    	draw_figure_dot (dot: EV_MODEL_DOT)
    	draw_figure_ellipse (ellipse: EV_MODEL_ELLIPSE)
    	draw_figure_equilateral (eql: EV_MODEL_EQUILATERAL)
    	draw_figure_line (line: EV_MODEL_LINE)
    	draw_figure_parallelogram (parallelogram: EV_MODEL_PARALLELOGRAM)
    	draw_figure_picture (picture: EV_MODEL_PICTURE)
    	draw_figure_pie_slice (slice: EV_MODEL_PIE_SLICE)
    	draw_figure_polygon (polygon: EV_MODEL_POLYGON)
    	draw_figure_polyline (line: EV_MODEL_POLYLINE)
    	draw_figure_rectangle (rectangle: EV_MODEL_RECTANGLE)
    	draw_figure_rotated_arc (arc: EV_MODEL_ROTATED_ARC)
    	draw_figure_rotated_ellipse (ellipse: EV_MODEL_ROTATED_ELLIPSE)
    	draw_figure_rotated_pie_slice (slice: EV_MODEL_ROTATED_PIE_SLICE)
    	draw_figure_rounded_parallelogram (f: EV_MODEL_ROUNDED_PARALLELOGRAM)
    	draw_figure_rounded_rectangle (f: EV_MODEL_ROUNDED_RECTANGLE)
    	draw_figure_star (star: EV_MODEL_STAR)
    	draw_figure_text (text_figure: EV_MODEL_TEXT)
    	project
    	register_figure (a_figure: EV_MODEL; a_routine: PROCEDURE [ANY, TUPLE [EV_MODEL]])
    	set_drawable (a_drawable: [like drawable] EV_POSTSCRIPT_DRAWABLE)
    	set_world (a_world: [like world] EV_MODEL_WORLD)