DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦8551a1754⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Postscript, seg_012b39

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



package Postscript is
    ------------------------------------------------------------------------
    -- MacDraw is a registered trademark of Claris Corporation.
    -- Macintosh is a registered trademark of Apple Computer, Inc.
    -- PostScript is a registered trademark of Adobe Systems, Inc.
    ------------------------------------------------------------------------


    procedure Convert_Pictures (In_Postscript_File : String := "<CURSOR>";
                                Root_Filename : String := "";
                                First_Picture : Positive := 1;
                                Last_Picture : Positive := Positive'Last;
                                Options : String := "";
                                Response : String := "<PROFILE>");

    -- Graphics tools sometimes produce PostScript output files that are
    -- not "encapsulated".  This procedure converts the pictures in these
    -- files so that they can be included in documents generated by the
    -- Rational document formatter (via the ~Picture command).  These
    -- pictures still will not adhere to all the rules of encapsulated
    -- PostScript, so they probably will not work with other formatters
    -- that are capable of importing encapsulated graphics.
    --
    -- In_Postscript_File is the name of a PostScript file produced by
    -- MacDraw and uploaded to the R1000 from a Macintosh.  No other
    -- graphics tools are supported in this release.  (Of course,
    -- pictures from any tool that produces encapsulated PostScript
    -- can be used without conversion.)
    --
    -- Root_Filename is the prefix to use when generating output file
    -- names.  For example, setting Root_Filename to "Figure" will generate
    -- output files named "Figure1", "Figure2", etc.  If Root_Filename is
    -- not supplied, it will be derived from In_Postscript_File by
    -- appending "_Eps".
    --
    -- First_Picture and Last_Picture allow specific pictures to be
    -- selected when In_Postscript_File contains more than one picture.
    -- Each picture will be placed in a separate output file, with
    -- the picture number appended to Root_Filename to form the output
    -- file name.
    --
    -- The Options string currently is ignored.
    ------------------------------------------------------------------------


    procedure Compile_Font_Metrics (From_Afm_Files : String := "<CURSOR>";  
                                    Into_Library : String := "";
                                    Options : String := "";
                                    Response : String := "<PROFILE>");

    -- Compile_Font_Metrics accepts Adobe Font Metrics (AFM) files for
    -- PostScript fonts and translates them into the binary form required
    -- by the Rational document formatter.
    --
    -- From_Afm_Files should resolve to one or more AFM files in Adobe's
    -- standard interchange format.  Each AFM file is compiled into a
    -- binary file with simple name derived from the value of the FontName
    -- key.  The binary files are placed in Into_Library.  If Into_Library
    -- is not supplied, the binary files are placed directly into the
    -- formatter's released Fonts directory -- be careful to avoid
    -- inadvertent overwriting of existing files.
    --
    -- The Options string currently is ignored.
    ------------------------------------------------------------------------
end Postscript;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=13 rec1=00 rec2=01 rec3=076
        [0x01] rec0=12 rec1=00 rec2=02 rec3=060
        [0x02] rec0=14 rec1=00 rec2=03 rec3=06a
        [0x03] rec0=0a rec1=00 rec2=04 rec3=001
    tail 0x2170e646882b14dcb4693 0x42a00088462060003