6 |
|
*/ |
7 |
|
|
8 |
|
#include <ctype.h> |
9 |
– |
#include <string.h> |
10 |
– |
#include <stdio.h> |
9 |
|
|
10 |
|
#include "platform.h" |
11 |
|
#include "rtmath.h" |
193 |
|
} |
194 |
|
break; |
195 |
|
} |
196 |
< |
printf("# End conversion from: %s\n", inp); |
197 |
< |
if (inp[0] == '!') |
198 |
< |
pclose(fp); |
199 |
< |
else |
196 |
> |
if (inp[0] == '!') { |
197 |
> |
if (pclose(fp) != 0) { |
198 |
> |
fprintf(stderr, "%s: bad exit status\n", inp); |
199 |
> |
exit(1); |
200 |
> |
} |
201 |
> |
} else |
202 |
|
fclose(fp); |
203 |
+ |
printf("# End conversion from: %s\n", inp); |
204 |
|
} |
205 |
|
|
206 |
|
|
691 |
|
puts("\tc"); /* put diffuse component */ |
692 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
693 |
|
if (d > FTINY) |
694 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
695 |
< |
printf("\trd %.4f\n", cxyz[1]*(1. - fa->farg[3])); |
694 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
695 |
> |
printf("\trd %.6f\n", cxyz[1]*(1. - fa->farg[3])); |
696 |
|
if (fa->farg[3] > FTINY) { /* put specular component */ |
697 |
|
puts("\tc"); |
698 |
< |
printf("\trs %.4f %.4f\n", fa->farg[3], |
698 |
> |
printf("\trs %.6f %.6f\n", fa->farg[3], |
699 |
|
typ[7]=='2' ? .5*(fa->farg[4] + fa->farg[5]) : |
700 |
|
fa->farg[4]); |
701 |
|
} |
722 |
|
puts("\tc"); /* put diffuse component */ |
723 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
724 |
|
if (d > FTINY) |
725 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
726 |
< |
printf("\trd %.4f\n", cxyz[1]*(1. - fa->farg[3])); |
725 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
726 |
> |
printf("\trd %.6f\n", cxyz[1]*(1. - fa->farg[3])); |
727 |
|
/* put specular component */ |
728 |
< |
printf("\trs %.4f %.4f\n", cxyz[1]*fa->farg[3], |
728 |
> |
printf("\trs %.6f %.6f\n", cxyz[1]*fa->farg[3], |
729 |
|
typ[5]=='2' ? .5*(fa->farg[4] + fa->farg[5]) : |
730 |
|
fa->farg[4]); |
731 |
|
return(0); |
762 |
|
puts("\tc"); |
763 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
764 |
|
if (d > FTINY) |
765 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
766 |
< |
printf("\trs %.4f 0\n", cxyz[1]); |
765 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
766 |
> |
printf("\trs %.6f 0\n", cxyz[1]); |
767 |
|
rgb_cie(cxyz, trgb); /* put transmitted component */ |
768 |
|
puts("\tc"); |
769 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
770 |
|
if (d > FTINY) |
771 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
772 |
< |
printf("\tts %.4f 0\n", cxyz[1]); |
771 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
772 |
> |
printf("\tts %.6f 0\n", cxyz[1]); |
773 |
|
return(0); |
774 |
|
} |
775 |
|
|
796 |
|
printf("\tir %f 0\n", fa->farg[3]); /* put index of refraction */ |
797 |
|
printf("\tsides 1\n"); |
798 |
|
puts("\tc"); /* put reflected component */ |
799 |
< |
printf("\trs %.4f 0\n", F); |
799 |
> |
printf("\trs %.6f 0\n", F); |
800 |
|
rgb_cie(cxyz, trgb); /* put transmitted component */ |
801 |
|
puts("\tc"); |
802 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
803 |
|
if (d > FTINY) |
804 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
805 |
< |
printf("\tts %.4f 0\n", cxyz[1]); |
804 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
805 |
> |
printf("\tts %.6f 0\n", cxyz[1]); |
806 |
|
return(0); |
807 |
|
} |
808 |
|
|
830 |
|
puts("\tc"); /* put specular component */ |
831 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
832 |
|
if (d > FTINY) |
833 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
834 |
< |
printf("\trs %.4f 0\n", cxyz[1]); |
833 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
834 |
> |
printf("\trs %.6f 0\n", cxyz[1]); |
835 |
|
return(0); |
836 |
|
} |
837 |
|
|
866 |
|
puts("\tc"); /* put transmitted diffuse */ |
867 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
868 |
|
if (d > FTINY) |
869 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
870 |
< |
printf("\ttd %.4f\n", cxyz[1]*trans*(1. - fa->farg[3])*(1. - tspec)); |
869 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
870 |
> |
printf("\ttd %.6f\n", cxyz[1]*trans*(1. - fa->farg[3])*(1. - tspec)); |
871 |
|
/* put transmitted specular */ |
872 |
< |
printf("\tts %.4f %.4f\n", cxyz[1]*trans*tspec*(1. - fa->farg[3]), rough); |
872 |
> |
printf("\tts %.6f %.6f\n", cxyz[1]*trans*tspec*(1. - fa->farg[3]), rough); |
873 |
|
/* put reflected diffuse */ |
874 |
< |
printf("\trd %.4f\n", cxyz[1]*(1. - fa->farg[3])*(1. - trans)); |
874 |
> |
printf("\trd %.6f\n", cxyz[1]*(1. - fa->farg[3])*(1. - trans)); |
875 |
|
puts("\tc"); /* put reflected specular */ |
876 |
< |
printf("\trs %.4f %.4f\n", fa->farg[3], rough); |
876 |
> |
printf("\trs %.6f %.6f\n", fa->farg[3], rough); |
877 |
|
return(0); |
878 |
|
} |
879 |
|
|
897 |
|
d = cxyz[0] + cxyz[1] + cxyz[2]; |
898 |
|
puts("\tc"); |
899 |
|
if (d > FTINY) |
900 |
< |
printf("\t\tcxy %.4f %.4f\n", cxyz[0]/d, cxyz[1]/d); |
900 |
> |
printf("\t\tcxy %.6f %.6f\n", cxyz[0]/d, cxyz[1]/d); |
901 |
|
printf("\ted %.4g\n", cxyz[1]*(PI*WHTEFFICACY)); |
902 |
|
return(0); |
903 |
|
} |