1--
2-- Copyright(C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10
11-- date : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- shapes_00.adb
15
16
17use Ada;
18
19with Ada.Text_IO;
20with Ada.Float_Text_IO;
21
22with Object_P;
23use Object_P;
24
25with Shapes_P;
26use Shapes_P;
27
28procedure Shapes_00 is
29
30 O_A : Object := (1.0, 0.5);
31
32 C_A : Circle := (0.0, 0.0, 2.5);
33
34 T_A : Triangle;
35
36 P_A : Point;
37
38 C_B : Cylinder;
39
40begin
41
42 O_A := Object(C_A);
43
44 C_A := (O_A with 3.75);
45
46 T_A := (O_A with A => 2.1,
47 B => 2.2,
48 C => 1.8);
49
50 P_A := (O_A with null record);
51
52 C_B := (O_A with Radius => 4.2,
53 Height => 8.5);
54
55 C_B := (C_A with Height => 98.72);
56
57 C_B := (Object(T_A) with 20.2, 20.5);
58
59end Shapes_00;