Sem luzes você não seria capaz de ver nada. Por sorte fluxus te dá uma de graça por padrão, uma luz pontual difusa e branca fixa à camêra. Para iluminações mais interessantes, você vai precisar destas funções. Usando as funções fixas de pipeline gráfico padrão, falando simplisticamente, OpenGL multiplica estes valores pela superficie do material (ajustado com comandos do estado local [local state] como ambient e diffuse) e o valor cor da textura dando a cor final.
Returns lightid-number
Faz uma luz nova. O tipo pode ser um destes: point, directional ou spot. Se a string de cameralocked não estiver livre então esta vai ser fixa à câmera, e mexer ao redor quando você mover a câmera.
Example
; turn off the main light
(light-diffuse 0 (vector 0 0 0))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'point 'free))
(light-position mylight (vector 5 2 0))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20))
Returns void
Ajusta a contribuição do ambiente para a luz especificada.
Example
; turn off the main light
(light-diffuse 0 (vector 0 0 0))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'point 'free))
(light-position mylight (vector 5 2 0))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20))
Returns void
Ajusta a contribuição difusa para a luz especificada.
Example
; turn off the main light
(light-diffuse 0 (vector 0 0 0))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'point 'free))
(light-position mylight (vector 5 2 0))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20))
Returns void
Ajusta a contribuição especular para a luz específicada.
Example
; turn off the main light
(light-diffuse 0 (vector 0 0 0))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'point 'free))
(light-position mylight (vector 5 2 0))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20))
Returns void
Ajusta a posição da luz especificada. Em espaço global se livre, em espaço da câmera se fixa.
Example
; turn off the main light
(light-diffuse 0 (vector 0 0 0))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'point 'free))
(light-position mylight (vector 5 2 0))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20))
Returns void
Ajusta o ângulo do cone da luz spot especificada. Se não é uma luz spot este comando não tem nenhum efeito.
Example
; turn down the main light
(light-diffuse 0 (vector 0.1 0.1 0.1))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'spot 'free))
(light-position mylight (vector (+ 4 (crndf)) (crndf) 2))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(light-spot-angle mylight (+ 5 (random 40)))
(light-spot-exponent mylight 500)
(light-attenuation mylight 'constant 1)
(light-direction mylight (vector -1 0 -1))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20)
(scale (vector 10 10 10))
(translate (vector -0.5 -0.5 0))
(build-seg-plane 20 20))
Returns void
Ajusta a exponencial da luz spot (dispersão do cone) específicada. Não funciona com outra lâmpada senão a spot.
Example
; turn down the main light
(light-diffuse 0 (vector 0.1 0.1 0.1))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'spot 'free))
(light-position mylight (vector (+ 4 (crndf)) (crndf) 2))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(light-spot-angle mylight (+ 5 (random 40)))
(light-spot-exponent mylight 500)
(light-attenuation mylight 'constant 1)
(light-direction mylight (vector -1 0 -1))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20)
(scale (vector 10 10 10))
(translate (vector -0.5 -0.5 0))
(build-seg-plane 20 20))
Returns void
Ajusta a atenuação da luz (decaimento com distância) da luz especificada. O símbolo-tipo, pode ser um dos: constant, linear ou quadratic.
Example
; turn down the main light
(light-diffuse 0 (vector 0.1 0.1 0.1))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'spot 'free))
(light-position mylight (vector (+ 4 (crndf)) (crndf) 2))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(light-spot-angle mylight (+ 5 (random 40)))
(light-spot-exponent mylight 500)
(light-attenuation mylight 'constant 1)
(light-direction mylight (vector -1 0 -1))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20)
(scale (vector 10 10 10))
(translate (vector -0.5 -0.5 0))
(build-seg-plane 20 20))
Returns void
Ajusta a direção da luz direcional. Se não é uma luz direcional, este comando não tem efeito.
Example
; turn down the main light
(light-diffuse 0 (vector 0.1 0.1 0.1))
(light-specular 0 (vector 0 0 0))
(light-ambient 0 (vector 0 0 0))
(define mylight (make-light 'spot 'free))
(light-position mylight (vector (+ 4 (crndf)) (crndf) 2))
(light-diffuse mylight (rndvec))
(light-ambient mylight (vmul (rndvec) 0.1))
(light-specular mylight (vmul (rndvec) 10))
(light-spot-angle mylight (+ 5 (random 40)))
(light-spot-exponent mylight 500)
(light-attenuation mylight 'constant 1)
(light-direction mylight (vector -1 0 -1))
(with-state
(ambient (vector 1 1 1))
(colour (vector 1 1 1))
(specular (vector 0.5 0.5 0.5))
(shinyness 20)
(build-torus 1 2 20 20)
(scale (vector 10 10 10))
(translate (vector -0.5 -0.5 0))
(build-seg-plane 20 20))