Texture Mapping
I wrote these procedures for Texture Mapping. They have not been
tested yet, but I going to make a demo when I find the time These
Fucntions not included do the following: Dif(A,B) returns the result
of subtract the smaller of the two from the larger. Small(A,B)
returns the smaller of the two. Div10(A) returns the rounded result
of A divided by 10,:Note even if it'd bellow ten then it'll retunr
the closet ten such as 5 would give you a 1 I made Div10 like this to
avoid reals Function Div10(A:Integer):Integer; Var
R:Integer;
Begin
R:=A div 10;
If A-R*10 >=5 then R:=R+1;
Div10:=R;
End;
Plot3D Projects a point to a 640x480x256 screen with perspective projection.
This was written in TP V 7.0
The type area looks like this