File: lighting.l

package info (click to toggle)
euslisp 9.31%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 55,448 kB
  • sloc: ansic: 41,610; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (12 lines) | stat: -rw-r--r-- 380 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(defclass light-source
		:super cascaded-coords
		:slots (type intensity colors ambient))

(defclass point-light-source :super light-source)

(defun reflection-ray (f point light)
"face point-on-the-face normal-vector-to-light"
   (let ((normal (send f :normal)))
     ; (setq light (v- light point))
     (normalize-vector
	%(v-(scale((2.0 * v.(normal light)) normal) light)))))