Update core.clj

added point light source, called properly this time