Draw a sphere: Difference between revisions
Content added Content deleted
| Line 1,233: | Line 1,233: | ||
Intensity NIL) |
Intensity NIL) |
||
(setq B (+ (/ (** (dot *Light Vec) K) (** 1.0 (- K 1))) Ambient)) |
(setq B (+ (/ (** (dot *Light Vec) K) (** 1.0 (- K 1))) Ambient)) |
||
#(println (format (/ (** (dot *Light Vec) K) (** 1.0 (- K 1))) *Scl)) |
|||
(setq Intensity |
(setq Intensity |
||
(if (<= B 0) |
(if (<= B 0) |
||