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

SCM Repository

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

Annotation of /branches/vis12/test/fun-test.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2142 - (view) (download)

1 : jhr 2133 // fun-test.diderot
2 :     //
3 :    
4 :     function real sqr (real x) = x*x;
5 :    
6 :     function real{4} toRGBA (real gr, real tr) = {gr, gr, gr, 1 - tr};
7 :    
8 :     function real c1 () = 1;
9 : jhr 2142 function real c2 () { return 1; real z = 2.0; }
10 : jhr 2133
11 :     strand Triv ()
12 :     {
13 : jhr 2142 output real x = sqr(c1());
14 : jhr 2133
15 : jhr 2142 update {
16 :     real y = 1.5 * x;
17 :     y = sqr(y);
18 :     x = y + c2();
19 :     stabilize;
20 :     }
21 : jhr 2133 }
22 :    
23 :     initially { Triv() | i in 1..1 };

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