(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| misc.c (PDL-2.082) | : | misc.c (PDL-2.083) |
|---|
| | |
| skipping to change at line 38 | | skipping to change at line 38 |
|---|
| { | | { |
| int ymin, ymax, xmin, xmax, fwrd = 1, i, j, k, nsect; | | int ymin, ymax, xmin, xmax, fwrd = 1, i, j, k, nsect; |
| int x[MAXSEC], temp, l; | | int x[MAXSEC], temp, l; |
| float s1, s2, t1, t2; | | float s1, s2, t1, t2; |
| | |
| ymin = PY(0); ymax = PY(0); | | ymin = PY(0); ymax = PY(0); |
| xmin = PX(0); xmax = PX(0); | | xmin = PX(0); xmax = PX(0); |
| *ierr = 0; | | *ierr = 0; |
| | |
| for (i=1; i<n; i++) { | | for (i=1; i<n; i++) { |
|
| ymin = ymin > PY(i) ? PY(i) : ymin; | | ymin = PDLMIN(ymin, PY(i)); |
| ymax = ymax < PY(i) ? PY(i) : ymax; | | ymax = PDLMAX(ymax, PY(i)); |
| xmin = xmin > PX(i) ? PX(i) : xmin; | | xmin = PDLMIN(xmin, PX(i)); |
| xmax = xmax < PX(i) ? PX(i) : xmax; | | xmax = PDLMAX(xmax, PX(i)); |
| } | | } |
| if (xmin < 0 || xmax >= wx || ymin < 0 || ymax >= wy) { | | if (xmin < 0 || xmax >= wx || ymin < 0 || ymax >= wy) { |
| *ierr = 1; /* clipping */ | | *ierr = 1; /* clipping */ |
| return; | | return; |
| } | | } |
| s1 = PX(n-1); | | s1 = PX(n-1); |
| t1 = PY(n-1); | | t1 = PY(n-1); |
| for (l=ymin; l<= ymax; l++) { | | for (l=ymin; l<= ymax; l++) { |
| nsect = 0; | | nsect = 0; |
| fwrd = 1; | | fwrd = 1; |
| | | |
| End of changes. 1 change blocks. |
|---|
| 4 lines changed or deleted | | 4 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 