var lightCount : int := 1 % amount of lights to make, make sure this is set right
var lights : array 1 .. lightCount of ^Light
%
for i : 1 .. lightCount
    new lights (i)
end for
% lights (i) -> CreateLight ((x,y,z),(r,g,b,s))
lights (1) -> CreateLight (Vector.Set (0, 6, 0), Colour.Set (0.3, 0.3, 0.3, 0))

%%%%

var objCount : int := 1 % Amount of objects u create, make sure this is set too
var object : array 1 .. objCount of ^Primitive
%
for i : 1 .. objCount
    new object (i)
end for
% object (i) -> CreatePrimtive ((x,y,z),r,(r,g,b,s),shape)
% shape 0, plane
% shape 1, sphere
% r is radius or distance from origin in direction of normal for planes
% colour s, reflectiveness 0= none 1=full
object (1) -> CreatePrimitive (Vector.Set (0, 1, 0), -1, Colour.Set (1, 1, 1, 1), 0)