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

⟦9a2d0b3a5⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Ico, seg_005348

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



procedure Ico  
             (Display       : String   := "";       -- host:display
              Object        : String   := "ICO";    -- object to draw
              Edges         : Boolean  := True;     -- draw obj edges
              Faces         : Boolean  := False;    -- draw obj faces
              Geometry      : String   := "";       -- geometry to use
              Invert        : Boolean  := False;    -- invert video
              Colors        : String   := "";       -- "red,blue,green"
              Dashes        : Natural  := 0;        -- dash geometry
              Sleep         : Duration := 0.0;      -- pause between draws
              Double_Buffer : Boolean  := False;    -- double buffer
              Use_Root      : Boolean  := False;    -- draw upon root
              Help_Printout : Boolean  := False);   -- print obj names

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=0f rec1=00 rec2=01 rec3=000
    tail 0x2170088b481978736e74d 0x42a00088462063203