DataMuseum.dk

top - download

    Length: 3935 (0xf5f)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--      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;