Name cleanup <3

turbo-pascal/ray.pas

@@ -245,7 +245,7 @@ begin
   u.Insert(@g);
   u.Insert(@b);
   u.Insert(@w);
-  {Save(u,'brion2.tga');}
+  {Save(u,'brooke2.tga');}
   Beep;
   u.Done;
 end;

turbo-pascal/ray12.pas

@@ -276,7 +276,7 @@ begin
   u.InsertLight(@l5);
   u.InsertLight(@l6);
   {Zoom(u);}
-  Save(u,'brion6.tga');
+  Save(u,'brooke6.tga');
   Beep;
   u.DeleteAll;
   u.Done;

turbo-pascal/ray6p.pas

@@ -245,7 +245,7 @@ begin
   u.Insert(@g);
   u.Insert(@b);
   u.Insert(@w);
-  Save(u,'brion2.tga');
+  Save(u,'brooke2.tga');
   Beep;
   u.Done;
 end;

turbo-pascal/ray7.pas

@@ -250,7 +250,7 @@ begin
   m.Init(0,-8,0, 0,1,0);
   p.Init(0,-8,0, 0,1,0);
   u.Insert(@m);
-  {Save(u,'brion3.tga');}
+  {Save(u,'brooke3.tga');}
   Qwik(u);
   Beep;
   u.Done;

turbo-pascal/ray8.pas

@@ -265,7 +265,7 @@ begin
   u.Insert(@w);
   for i := 0 to 17 do
     u.Insert(@ss[i]);
-  Save(u,'brion4.tga');
+  Save(u,'brooke4.tga');
   {Zoom(u);}
   Beep;
   u.Done;

turbo-pascal/ray9.pas

@@ -426,14 +426,14 @@ var
 begin
   u.Init(320,200);
   p.Init (0,-8,0, 0,1,0);
-  wood.Init(-16,0,54,8, 'c:\brion\vga\wood2.pcx');
-  mimas.Init(0,0,50,8, 'c:\brion\vga\mimas2.pcx');
-  Earth.Init(16,0,54,8, 'c:\brion\vga\earth2.pcx');
+  wood.Init(-16,0,54,8, 'wood2.pcx');
+  mimas.Init(0,0,50,8, 'mimas2.pcx');
+  Earth.Init(16,0,54,8, 'earth2.pcx');
   u.Insert(@wood);
   u.Insert(@mimas);
   u.Insert(@Earth);
   u.Insert(@p);
-  Save(u,'brion5.tga');
+  Save(u,'brooke5.tga');
   {Zoom(u);}
   Beep;
   wood.Done;

turbo-pascal/raypic.pas

@@ -264,7 +264,7 @@ end;
 begin
   Set13h;
   SetUpRgb;
-  StartTga('brion1.tga');
+  StartTga('brooke1.tga');
   TraceIt;
   EndTga;
   ReadKey;

turbo-pascal/rayt1.pas

@@ -224,7 +224,7 @@ begin
   u.Insert(@s3);
   u.Insert(@p1);
 
-  {Save(u,'brion7.tga');}
+  {Save(u,'brooke7.tga');}
   Zoom(u);
   Beep;
   u.DeleteAll;

turbo-pascal/rayt2.pas

@@ -239,7 +239,7 @@ begin
   u.Insert(@s2);
   u.Insert(@s3);
 
-  Save(u,'brion8.tga');
+  Save(u,'brooke8.tga');
   {Zoom(u);}
   Beep;
   u.DeleteAll;

turbo-pascal/rayt4.pas

@@ -287,7 +287,7 @@ begin
   u.Insert(@s4);
 
   {Zoom(u);}
-  Save(u,'brion9.tga');
+  Save(u,'brooke9.tga');
   Beep;
   u.DeleteAll;
   u.Done;

turbo-pascal/rayt5.pas

@@ -397,7 +397,7 @@ begin
   end;
   Draw(u);
   {StartTime;
-  Save(u,'brion10.tga');
+  Save(u,'brooke10.tga');
   EndTime;}
   Beep;
   u.Done;

turbo-pascal/raytr.pas

@@ -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 }

turbo-pascal/raytr2.pas

@@ -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-31-92, unless I forget to change this line.
   12-25-92: set for Doubles
   12-31-92: Totally changed to compete with POV-Ray