Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!cbosgd!gatech!gitpyr!lbg
From: lbg@gitpyr.UUCP (Lee B Grey)
Newsgroups: net.micro.amiga
Subject: Re: MULTIDIM.C
Message-ID: <1594@gitpyr.UUCP>
Date: Fri, 28-Mar-86 18:48:56 EST
Article-I.D.: gitpyr.1594
Posted: Fri Mar 28 18:48:56 1986
Date-Received: Sat, 29-Mar-86 05:14:38 EST
References: <1583@gitpyr.UUCP> <844@well.UUCP>
Reply-To: lbg@gitpyr.UUCP (Lee B Grey)
Organization: Georgia Institute of Technology
Lines: 48

In article <844@well.UUCP> french@well.UUCP (Robert Scott French) writes:
>
>Lee (and everyone else)...sorry for the inconvenience!  I had hoped that the
>"i}" buried somewhere between lines 300 and 350 was merely a reception
>error when I downloaded the program to check it.  Please simply delete
>the "i}" (or was it "}i"?), as this is simply added line noise.  If anyone
>still has problems with the program, please drop me a line or give me a call.
>

Sorry to have to post this.  Gees, I wish we could send mail to ARPA!

I am enclosing a copy of the draw routine that came with MULTIDIM.C.
As you can see, deleting the }h will not do it.  It looks to me like
a line or two (including a carriage-return) was lost.  How do you see
it, Robert?

draw()
{
   int i,dim;
   union kludge z;

   for (i=0;i<num_points;i++) {
      z.i = SPFlt(1);

      if (num_dim >})h2)           <--- This is the bum line.
         if (alldim)
            for (dim=num_dim-1;dim>=2;--dim)
               z.i = SPMul(SPAdd(SPMul(points[i][dim].i,recip2sqrt2.i),
                     const15.i),z.i);
         else
            z.i = SPAdd(SPMul(points[i][num_dim-1].i,recip2sqrt2.i),
                  const15.i);

      xpoints[i] = SPFix(SPMul(SPDiv(z.i,points[i][0].i),xscale.i))+XCENTER;
      ypoints[i] = SPFix(SPMul(SPDiv(z.i,points[i][1].i),yscale.i))+YCENTER;
   }

   SetAPen(rp,0);
   RectFill(rp,0,10,639,199);

   SetAPen(rp,1);
   SetDrMd(rp,JAM1);

   for (i=0;i<num_edges;i++) {
      Move(rp,xpoints[st_edge[i]],ypoints[st_edge[i]]);
      Draw(rp,xpoints[end_edge[i]],ypoints[end_edge[i]]);
   }
}