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

⟦03fc01457⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Graf3d, seg_021fc6

Derivation

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

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
with Quickdraw;
package Graf3d is

    Radconst : constant := 3754936;
    type Point3d is
        record
            X : Fixed;
            Y : Fixed;
            Z : Fixed;
        end record;

    type Point2d is
        record
            X : Fixed;
            Y : Fixed;
        end record;

    type Xfmatrix is array (0 .. 3, 0 .. 3) of Fixed;
    type Port3d is
        record
            Grport : Quickdraw.Grafptr;
            Viewrect : Rect;
            Xleft : Fixed;
            Ytop : Fixed;
            Xright : Fixed;
            Ybottom : Fixed;
            Pen : Point3d;
            Penprime : Point3d;
            Eye : Point3d;
            Hsize : Fixed;
            Vsize : Fixed;
            Hcenter : Fixed;
            Vcenter : Fixed;
            Xcotan : Fixed;
            Ycotan : Fixed;
            Ident : Boolean;
            Xform : Xfmatrix;
        end record;
    type Port3dptr is access Port3d;

    procedure Initgrf3d (Port : Port3dptr);
    pragma Interface (Mpwpascal, Initgrf3d, "INITGRF3D");

    procedure Open3dport (Port : Port3dptr);
    pragma Interface (Mpwpascal, Open3dport, "OPEN3DPORT");

    procedure Setport3d (Port : Port3dptr);
    pragma Interface (Mpwpascal, Setport3d, "SETPORT3D");

    procedure Getport3d (Port : in out Port3dptr);
    pragma Interface (Mpwpascal, Getport3d, "GETPORT3D");

    procedure Moveto2d (X : Fixed; Y : Fixed);
    pragma Interface (Mpwpascal, Moveto2d, "MOVETO2D");

    procedure Moveto3d (X : Fixed; Y : Fixed; Z : Fixed);
    pragma Interface (Mpwpascal, Moveto3d, "MOVETO3D");

    procedure Lineto2d (X : Fixed; Y : Fixed);
    pragma Interface (Mpwpascal, Lineto2d, "LINETO2D");

    procedure Move2d (Dx : Fixed; Dy : Fixed);
    pragma Interface (Mpwpascal, Move2d, "MOVE2D");

    procedure Move3d (Dx : Fixed; Dy : Fixed; Dz : Fixed);
    pragma Interface (Mpwpascal, Move3d, "MOVE3D");

    procedure Line2d (Dx : Fixed; Dy : Fixed);
    pragma Interface (Mpwpascal, Line2d, "LINE2D");

    procedure Line3d (Dx : Fixed; Dy : Fixed; Dz : Fixed);
    pragma Interface (Mpwpascal, Line3d, "LINE3D");

    procedure Viewport (R : Rect);
    pragma Interface (Mpwpascal, Viewport, "VIEWPORT");

    procedure Lookat (Left : Fixed; Top : Fixed; Right : Fixed; Bottom : Fixed);
    pragma Interface (Mpwpascal, Lookat, "LOOKAT");

    procedure Viewangle (Angle : Fixed);
    pragma Interface (Mpwpascal, Viewangle, "VIEWANGLE");

    procedure Identity;
    pragma Interface (Mpwpascal, Identity, "IDENTITY");

    procedure Scale (Xfactor : Fixed; Yfactor : Fixed; Zfactor : Fixed);
    pragma Interface (Mpwpascal, Scale, "SCALE");

    procedure Translate (Dx : Fixed; Dy : Fixed; Dz : Fixed);
    pragma Interface (Mpwpascal, Translate, "TRANSLATE");

    procedure Pitch (Xangle : Fixed);
    pragma Interface (Mpwpascal, Pitch, "PITCH");

    procedure Yaw (Yangle : Fixed);
    pragma Interface (Mpwpascal, Yaw, "YAW");

    procedure Roll (Zangle : Fixed);
    pragma Interface (Mpwpascal, Roll, "ROLL");

    procedure Skew (Zangle : Fixed);
    pragma Interface (Mpwpascal, Skew, "SKEW");

    procedure Transform (Src : Point3d; Dst : in out Point3d);
    pragma Interface (Mpwpascal, Transform, "TRANSFORM");

    function Clip3d (Src1 : Point3d;
                     Src2 : Point3d;
                     Dst1 : Varpoint;
                     Dst2 : Varpoint) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Clip3d, "CLIP3D");

    procedure Setpt3d (Pt3d : in out Point3d; X : Fixed; Y : Fixed; Z : Fixed);
    pragma Interface (Mpwpascal, Setpt3d, "SETPT3D");

    procedure Setpt2d (Pt2d : in out Point2d; X : Fixed; Y : Fixed);
    pragma Interface (Mpwpascal, Setpt2d, "SETPT2D");

    procedure Lineto3d (X : Fixed; Y : Fixed; Z : Fixed);
    pragma Interface (Mpwpascal, Lineto3d, "LINETO3D");

end Graf3d;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=28 rec1=00 rec2=01 rec3=02a
        [0x01] rec0=1d rec1=00 rec2=02 rec3=024
        [0x02] rec0=1b rec1=00 rec2=03 rec3=00a
        [0x03] rec0=1b rec1=00 rec2=04 rec3=01c
        [0x04] rec0=04 rec1=00 rec2=05 rec3=000
    tail 0x2171dcb4a83906ded7389 0x42a00088462060003