| 1 |
– |
/* Copyright (c) 1991 Regents of the University of California */ |
| 2 |
– |
|
| 1 |
|
#ifndef lint |
| 2 |
< |
static char SCCSid[] = "$SunId$ LBL"; |
| 2 |
> |
static const char RCSid[] = "$Id$"; |
| 3 |
|
#endif |
| 6 |
– |
|
| 4 |
|
/* |
| 5 |
|
* Generate an N-dimensional Peano space-filling curve |
| 6 |
|
* on the interval [0,1). |
| 10 |
– |
* |
| 11 |
– |
* 12 Aug 91 Greg Ward |
| 7 |
|
*/ |
| 8 |
|
|
| 9 |
+ |
#include "copyright.h" |
| 10 |
+ |
|
| 11 |
|
extern double floor(); |
| 12 |
|
|
| 13 |
|
|
| 41 |
|
|
| 42 |
|
|
| 43 |
|
peano(p, n, t, e) /* compute Peano point */ |
| 44 |
< |
double p[]; |
| 44 |
> |
register double p[]; |
| 45 |
|
int n; |
| 46 |
|
double t, e; |
| 47 |
|
{ |
| 48 |
|
register int i; |
| 49 |
< |
int neg = 0; |
| 49 |
> |
register int neg = 0; |
| 50 |
|
|
| 51 |
|
i = n; |
| 52 |
|
while (i-- > 0) { |
