|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Ico_Objcube, seg_005379
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Ico_Polyinfo;
use Ico_Polyinfo;
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_String7;
use Xlbt_String7;
package Ico_Objcube is
------------------------------------------------------------------------------
-- Derived from: objcube.h - structure values for cube */
------------------------------------------------------------------------------
--/* $Header: ico.c,v 1.4 88/02/09 13:15:08 jim Exp $ */
--/***********************************************************
-- Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
-- and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
--
-- All Rights Reserved
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice appear in all copies and that
-- both that copyright notice and this permission notice appear in
-- supporting documentation, and that the names of Digital or MIT not be
-- used in advertising or publicity pertaining to distribution of the
-- software without specific, written prior permission.
--
-- DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-- ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-- DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
-- ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-- WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-- ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
-- SOFTWARE.
------------------------------------------------------------------------------
T : constant := 0.577;
Obj_Cube : constant Poly_Info :=
(Long_Name => new String'("cube"),
Short_Name => new String'("cube"),
Dual => new String'("tetrahedron"),
Num_Verts => 8,
Num_Edges => 12,
Num_Faces => 6,
V =>
new Point_3d_Array'
( -- vertices (x,y,z)
-- all points must be within radius 1 of the origin
(T, T, T), (T, T, -T), (T, -T, -T), (T, -T, T),
(-T, T, T), (-T, T, -T), (-T, -T, -T), (-T, -T, T)),
F =>
new S_Natural_Array'
( -- faces (numfaces + indexes into vertices)
-- faces must be specified clockwise from the outside
4, 0, 1, 2, 3, 4, 7, 6, 5, 4, 4, 1, 0, 4, 5,
4, 3, 2, 6, 7, 4, 2, 1, 5, 6, 4, 0, 3, 7, 4));
end Ico_Objcube;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=18 rec1=00 rec2=01 rec3=080
[0x01] rec0=14 rec1=00 rec2=02 rec3=034
[0x02] rec0=11 rec1=00 rec2=03 rec3=000
tail 0x215009dc4819788db15c8 0x42a00088462063203