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

SCM Repository

[diderot] View of /branches/lamont/test/mandel-BUG1.diderot
ViewVC logotype

View of /branches/lamont/test/mandel-BUG1.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2081 - (download) (annotate)
Mon Nov 5 23:26:06 2012 UTC (6 years, 10 months ago) by lamonts
File size: 1336 byte(s)
Creating new developmented branch based on vis12
// ../bin/diderotc --exec mandel.diderot && ./mandel && unu quantize -b 8 -i rgb.nrrd -o mandel.png 

// Global definitions
input int reso = 800;
input int maxiter = 1000;
input vec2 center = [0.0,0.0];
// BUG: uncaught exception Fail [Fail: getExp(crIdx0136)]
//  raised at common/phase-timer.sml:76.50-76.52
//  raised at common/phase-timer.sml:76.50-76.52
//  raised at IL/value-numbering-fn.sml:47.36-47.83
// fixed in r1900 -- JHR
input real fov = 1.0;

// Strand definition
strand mandel(vec2 c) {
   vec2 z = [0.0, 0.0];
   int iter = 0;
   output vec3 rgb = [0.0, 0.0, 0.0];
   update  {
      z = [z[0]^2 - z[1]^2, 2.0*z[0]*z[1]] + c; // z = z^2 + c
      iter += 1;
      if (z•z > 4.0) {
         // point has escaped; set color based on iteration
         real t = 11.0*real(iter)^0.2;
         rgb = [sin(t), sin(t + 2.0*π/3.0), sin(t - 2.0*π/3.0)];
         rgb = ([1.7, 1.7, 1.7] + rgb)/2.7;
         stabilize;
      }
      if (iter > maxiter) {
         rgb = [0.0, 0.0, 0.0];
         stabilize;
      }
   }
}

// Strand initialization
initially [ mandel([lerp(center[0]-fov, center[0]+fov, 
                         1.0, real(crIdx), real(reso)),
                    lerp(center[1]-fov, center[1]+fov,
                         1.0, real(ciIdx), real(reso))])
            | ciIdx in 1..reso, crIdx in 1..reso ];

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