/[spray]/spray/test-raytracer.lisp
ViewVC logotype

Contents of /spray/test-raytracer.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Sun Sep 11 21:32:43 2005 UTC (8 years, 7 months ago) by san
Branch point for: spray, MAIN
Initial revision
1 san 1.1 ;; Load this file (after load-first) to load and run the raytracer
2    
3     (blk "loading raytracer")
4     (asdf-load t 'raytracer)
5     (in-package :an.steven.raytracer)
6    
7     (blk "running raytracer functional test case")
8     (setf *trace-indent* t)
9    
10     ;; Redirect trace output to an open file
11     (with-open-file (*trace-output*
12     "trace-out.txt"
13     :direction :output
14     :if-exists :supersede)
15     (time (identity (rt-test))))

  ViewVC Help
Powered by ViewVC 1.1.5