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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2142 - (download) (annotate)
Sat Feb 16 13:36:41 2013 UTC (6 years, 9 months ago) by jhr
File size: 365 byte(s)
  testing functions
// fun-test.diderot
//

function real sqr (real x) = x*x;

function real{4} toRGBA (real gr, real tr) = {gr, gr, gr, 1 - tr};

function real c1 () = 1;
function real c2 () { return 1; real z = 2.0; }

strand Triv ()
{
    output real x = sqr(c1());

    update {
	real y = 1.5 * x;
	y = sqr(y);
	x = y + c2();
	stabilize;
    }
}

initially { Triv() | i in 1..1 };

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