brooke/raytrace-retro
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Name cleanup <3

Browse source
This commit is contained in:
Brooke Vibber 2026-04-08 21:02:41 -07:00
commit b285b10484
31 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
turbo-pascal/raytr.pas
View file

@ -1,6 +1,6 @@
unit RayTr;
{ Everything-independent super ultra ray-tracing
by Brion Vibber, 12-13-92, based on lots of stuff
by Brooke Vibber, 12-13-92, based on lots of stuff
last revised 12-25-92, unless I forget to change this line.
12-25-92: set for Floats
}
@ -807,7 +807,7 @@ begin
end2 := -1;
a := r1.d.x * r1.d.x + r1.d.y * r1.d.y;
(*
xý+yý=(1-(z/th))rý
x<EFBFBD>+y<EFBFBD>=(1-(z/th))r<EFBFBD>
take (1-(z/th))*ra2 and use as r2 in cyl stuff
*)
{ get p1.z, p2.z }