Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /branches/vis12/test/tstablize.diderot
ViewVC logotype

Annotation of /branches/vis12/test/tstablize.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1685 - (view) (download)

1 : jhr 1671 // tstabilize.diderot
2 :     //
3 :     // tests use of parameters in the methods and stabilize
4 :     //
5 :    
6 :     int imgSize = 200;
7 :     int maxRow = imgSize - 1;
8 :     int maxCol = imgSize - 1;
9 :    
10 :     // NOTE: the compiler should create a shadow for col, but not for row.
11 :     strand RayCast (int row, int col)
12 :     {
13 :     int r = row;
14 :     output real maxval = 0.0;
15 :    
16 :     update
17 :     {
18 :     stabilize;
19 :     }
20 :    
21 :     stabilize {
22 :     maxval = real(r+col);
23 :     }
24 :     }
25 :    
26 :     initially [ RayCast(r, c) | r in 0..maxRow, c in 0..maxCol ];
27 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0