|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Ico_Objico, seg_00537a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Ico_Polyinfo;
use Ico_Polyinfo;
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_String7;
use Xlbt_String7;
package Ico_Objico is
------------------------------------------------------------------------------
-- Derived from: objico.h - structure values for icosahedron
------------------------------------------------------------------------------
--/* $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.
------------------------------------------------------------------------------
Obj_Ico : constant Poly_Info :=
(Long_Name => new String'("icosahedron"),
Short_Name => new String'("ico"),
Dual => new String'("dodecahedron"),
Num_Verts => 12,
Num_Edges => 30,
Num_Faces => 20,
V =>
new Point_3d_Array'
( -- vertices (x,y,z)
-- all points must be within radius 1 of the origin
(0.00000000, 0.00000000, -0.95105650),
(0.00000000, 0.85065080, -0.42532537),
(0.80901698, 0.26286556, -0.42532537),
(0.50000000, -0.68819095, -0.42532537),
(-0.50000000, -0.68819095, -0.42532537),
(-0.80901698, 0.26286556, -0.42532537),
(0.50000000, 0.68819095, 0.42532537),
(0.80901698, -0.26286556, 0.42532537),
(0.00000000, -0.85065080, 0.42532537),
(-0.80901698, -0.26286556, 0.42532537),
(-0.50000000, 0.68819095, 0.42532537),
(0.00000000, 0.00000000, 0.95105650)),
F =>
new S_Natural_Array'
( -- faces (numfaces + indexes into vertices)
-- faces must be specified clockwise from the outside
3, 0, 2, 1, 3, 0, 3, 2, 3, 0, 4, 3, 3, 0, 5, 4,
3, 0, 1, 5, 3, 1, 6, 10, 3, 1, 2, 6, 3, 2, 7, 6,
3, 2, 3, 7, 3, 3, 8, 7, 3, 3, 4, 8, 3, 4, 9, 8, 3,
4, 5, 9, 3, 5, 10, 9, 3, 5, 1, 10, 3, 10, 6, 11, 3,
6, 7, 11, 3, 7, 8, 11, 3, 8, 9, 11, 3, 9, 10, 11));
end Ico_Objico;
nblk1=5
nid=4
hdr6=8
[0x00] rec0=18 rec1=00 rec2=01 rec3=07c
[0x01] rec0=13 rec1=00 rec2=02 rec3=02a
[0x02] rec0=13 rec1=00 rec2=05 rec3=038
[0x03] rec0=0a rec1=00 rec2=03 rec3=000
[0x04] rec0=00 rec1=00 rec2=00 rec3=008
tail 0x217008910819788dda169 0x42a00088462063203
Free Block Chain:
0x4: 0000 00 00 01 ec 80 2b 2d 2d 20 66 61 63 65 73 20 28 ┆ +-- faces (┆