Revision as of 09:45, 26 June 2012 (view source) rosettacode>Srborlongan (→‎{{header\|PicoLisp}}) ← Older edit		Revision as of 05:01, 27 June 2012 (view source) rosettacode>Srborlongan m (→‎{{header\|PicoLisp}}) Newer edit →
Line 1,233: Intensity NIL) (setq B (+ (/ (** (dot Light Vec) K) (* 1.0 (- K 1))) Ambient)) ~~#(println (format (/ (** (dot Light Vec) K) (* 1.0 (- K 1))) *Scl))~~ (setq Intensity (if (<= B 0)

Draw a sphere: Difference between revisions

Draw a sphere (view source)