3.3.1 and Pascal

[Dave Ciemiewicz]

In article <1990Oct10.201900.7893 at odin.corp.sgi.com>, kuta at lima.esd.sgi.com (Herb Kuta) writes:
|> In article <20100517523067 at lax.wisc.edu>, SENGER at LAX.WISC.EDU writes:
|> |> I finally got 3.3.1 going after a physically scratched Dev tape and a
|> |> messed up install and now I find a problem with things written in Pascal.
|> |> The best I can tell so far is that the diffuse component of lighting is
|> |> being ignored. You can test this by changing nurbs.p in 4Dgifts/nurbs.
|> |> Is anyone else seeing this, or is my installation still screwed up.
|> |>  
|> |> thanks in advance.
|> |>   steve
|> |>   senger at lax.wisc.edu
|> 
|> Are you sure that you are compiling nurbs.p without optimization (the -O
|> flag)?   Otherwise, passing locally declared arrays to the wrapper
|> library	(as the procedure make_lights does) is done incorrectly.
|> 
|> 
|> 	Herb Kuta
|> 	Silicon Graphics

We recently discovered a bug in the nurbs.p code where the materials were
not being bound correctly.  The following contextual difference below shows
the old (incorrect) code and the fixed lines of code.  You might try fixing
the code and shown.  (Yes, you're eyes don't decieve you, the lines of
code are moved from the init_view procedure to the set_scene procedure.)
  
---- old ----

      mmode(MVIEWING);
      loadmatrix(idmat);
- 
-     lmbind(MATERIAL, 1); 
-     zbuffer( TRUE );
  end;
  
  procedure set_scene;
  begin
      /* make a nice background */
      czclear(16#00969696, zfar);
  
---- fixed ----
  
      mmode(MVIEWING);
      loadmatrix(idmat);
  end;
  
  procedure set_scene;
  begin
+     lmbind(MATERIAL, 0);
+     RGBcolor(150, 150, 150);
+     lmbind(MATERIAL, 1); 
      /* make a nice background */
      czclear(16#00969696, zfar);

---- end of diff ----

						--- Ciemo