DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦c5e9b9336⟧ TextFile

    Length: 2182 (0x886)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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 Picker is

    Maxsmallfract : constant := 16#0000FFFF#;

    subtype Smallfract is Mac_Types.Integer;

    type Hsvcolor is
        record
            Hue : Smallfract;
            Saturation : Smallfract;
            Value : Smallfract;
        end record;

    type Hslcolor is
        record
            Hue : Smallfract;
            Saturation : Smallfract;
            Lightness : Smallfract;
        end record;

    type Cmycolor is
        record
            Cyan : Smallfract;
            Magenta : Smallfract;
            Yellow : Smallfract;
        end record;

    function Fix2smallfract (F : Fixed) return Smallfract;
    pragma Interface (Mpwpascal, Fix2smallfract, "16#3F3C#,16#0001#,16#A82E#");

    function Smallfract2fix (S : Smallfract) return Fixed;
    pragma Interface (Mpwpascal, Smallfract2fix, "16#3F3C#,16#0002#,16#A82E#");

    procedure Cmy2rgb (Ccolor : Cmycolor; Rcolor : in out Quickdraw.Rgbcolor);
    pragma Interface (Mpwpascal, Cmy2rgb, "16#3F3C#,16#0003#,16#A82E#");

    procedure Rgb2cmy (Rcolor : Quickdraw.Rgbcolor; Ccolor : in out Cmycolor);
    pragma Interface (Mpwpascal, Rgb2cmy, "16#3F3C#,16#0004#,16#A82E#");

    procedure Hsl2rgb (Hcolor : Hslcolor; Rcolor : in out Quickdraw.Rgbcolor);
    pragma Interface (Mpwpascal, Hsl2rgb, "16#3F3C#,16#0005#,16#A82E#");

    procedure Rgb2hsl (Rcolor : Quickdraw.Rgbcolor; Hcolor : in out Hslcolor);
    pragma Interface (Mpwpascal, Rgb2hsl, "16#3F3C#,16#0006#,16#A82E#");

    procedure Hsv2rgb (Hcolor : Hsvcolor; Rcolor : in out Quickdraw.Rgbcolor);
    pragma Interface (Mpwpascal, Hsv2rgb, "16#3F3C#,16#0007#,16#A82E#");

    procedure Rgb2hsv (Rcolor : Quickdraw.Rgbcolor; Hcolor : in out Hsvcolor);
    pragma Interface (Mpwpascal, Rgb2hsv, "16#3F3C#,16#0008#,16#A82E#");

    function Getcolor (Where : Point;
                       Prompt : Str255;
                       Incolor : Quickdraw.Rgbcolor;
                       Outcolor : Quickdraw.Rgbcolor) return Boolean;
    pragma Interface (Mpwpascal, Getcolor, "16#3F3C#,16#0009#,16#A82E#");

end Picker;