Draw a sphere: Difference between revisions

% Absolute dot product of x and y

function dot (x, y : array 1 .. 3 of real) : real

end dot

 

% Vector normalization

procedure normalize (var v : array 1 .. 3 of real)

for i : 1 .. 3

end for

end normalize

procedure drawSphere (radius : real, k : int, lightsource : array 1 .. 3 of real, brightness : real)

const diameter := 2.0 * radius

var x := i + 0.5

var y := j / 2 + 0.5

 

if x**2 + y**2 <= radius**2 then

var vec : array 1 .. 3 of real

normalize (vec)

 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%

</pre>