From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 22 Jan 93 01:00:47 GMT
From: alex@MIMSY.CS.UMD.EDU  (Alex Blakemore)
Subject: Re: Isomorphic variant question
Message-ID: <63594@mimsy.umd.edu>
List-Id: <comp.lang.ada>

In article <C16FuD.E5L@dale.cts.com> jhb@dale.cts.com (John Bollenbacher) write
s:
> So far so good.  My recurring problem arises when I have a code fragment
> which is responsible for building such a piece of mail which does not need
> to distinguish between these isomorphich variants

   procedure POST(KIND : SHAPES) is
   begin
     case KIND is
       when CIRCLE | SQUARE =>
         SEND((KIND   => KIND,
               CENTER => CENTER_OF_OBJECT,
               RADIUS => RADIUS_OF_OBJECT));              




-- 
---------------------------------------------------
Alex Blakemore alex@cs.umd.edu   NeXT mail accepted