558 |
|
|
559 |
|
if (ptp == NULL) { /* need to triangulate */ |
560 |
|
ptp = (POLYTRIS *)malloc(sizeof(POLYTRIS) + |
561 |
< |
sizeof(struct ptri)*(sp->nfargs/3 - 3)); |
561 |
> |
sizeof(struct ptri)*(sp->nfargs/3 - 1)); |
562 |
|
if (ptp == NULL) |
563 |
|
goto memerr; |
564 |
|
if (sp->nfargs == 3) { /* simple case */ |
643 |
|
if (p->nsurfs > nall) { /* (re)allocate surface area cache */ |
644 |
|
if (projsa) free(projsa); |
645 |
|
projsa = (double *)malloc(sizeof(double)*p->nsurfs); |
646 |
< |
if (!projsa) return(0); |
646 |
> |
if (projsa == NULL) { |
647 |
> |
fputs(progname, stderr); |
648 |
> |
fputs(": out of memory in sample_origin!\n", stderr); |
649 |
> |
exit(1); |
650 |
> |
} |
651 |
|
nall = p->nsurfs; |
652 |
|
} |
653 |
|
/* compute projected areas */ |
690 |
|
duvw[2]*p->nrm[i] ; |
691 |
|
if (!sample_origin(p, orig_dir[0], orig_dir[1], samp3[0])) |
692 |
|
return(0); |
693 |
< |
if (fwrite(orig_dir, sizeof(FVECT), 2, fp) != 2) |
693 |
> |
if (putbinary(orig_dir, sizeof(FVECT), 2, fp) != 2) |
694 |
|
return(0); |
695 |
|
} |
696 |
|
return(1); |
720 |
|
duvw[2]*p->nrm[i] ; |
721 |
|
if (!sample_origin(p, orig_dir[0], orig_dir[1], samp3[0])) |
722 |
|
return(0); |
723 |
< |
if (fwrite(orig_dir, sizeof(FVECT), 2, fp) != 2) |
723 |
> |
if (putbinary(orig_dir, sizeof(FVECT), 2, fp) != 2) |
724 |
|
return(0); |
725 |
|
} |
726 |
|
return(1); |
768 |
|
duvw[2]*p->nrm[i] ; |
769 |
|
if (!sample_origin(p, orig_dir[0], orig_dir[1], samp3[0])) |
770 |
|
return(0); |
771 |
< |
if (fwrite(orig_dir, sizeof(FVECT), 2, fp) != 2) |
771 |
> |
if (putbinary(orig_dir, sizeof(FVECT), 2, fp) != 2) |
772 |
|
return(0); |
773 |
|
} |
774 |
|
return(1); |
819 |
|
duvw[2]*p->nrm[i] ; |
820 |
|
if (!sample_origin(p, orig_dir[0], orig_dir[1], samp2[0])) |
821 |
|
return(0); |
822 |
< |
if (fwrite(orig_dir, sizeof(FVECT), 2, fp) != 2) |
822 |
> |
if (putbinary(orig_dir, sizeof(FVECT), 2, fp) != 2) |
823 |
|
return(0); |
824 |
|
} |
825 |
|
return(1); |
946 |
|
snew = (SURF *)malloc(sizeof(SURF) + sizeof(double)*(n-1)); |
947 |
|
if (snew == NULL) { |
948 |
|
fputs(progname, stderr); |
949 |
< |
fputs(": out of memory!\n", stderr); |
949 |
> |
fputs(": out of memory in add_surface!\n", stderr); |
950 |
|
exit(1); |
951 |
|
} |
952 |
|
strncpy(snew->sname, oname, sizeof(snew->sname)-1); |