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

SCM Repository

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

Annotation of /branches/vis12-cl/test/border-test.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3050 - (view) (download)

1 : jhr 3050 /* border-test.diderot
2 :     *
3 :     * COPYRIGHT (c) 2015 The Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     * All rights reserved.
5 :     *
6 :     * Test the border control features.
7 :     */
8 :    
9 :     input image(2)[3] Img = image("../data/mandrill.nrrd");
10 :    
11 :     //field#0(2)[3] T = tent ⊛ Img;
12 :     field#0(2)[3] Tb = tent ⊛ border(Img, [0.0, 0.0, 0.0]);
13 :     field#0(2)[3] Tc = tent ⊛ clamp(Img);
14 :     field#0(2)[3] Tm = tent ⊛ mirror(Img);
15 :     field#0(2)[3] Tw = tent ⊛ wrap(Img);
16 :     field#0(2)[3] Tww = tent ⊛ wrap(wrap(Img)); // should be the sams as Tw
17 :     int{2} sz = size(Img);
18 :    
19 :     strand Sample (vec2 pos)
20 :     {
21 :     output vec3 txtb = zeros[3]; // TODO: change to nan[3]
22 :     output vec3 txtc = zeros[3];
23 :     output vec3 txtm = zeros[3];
24 :     output vec3 txtw = zeros[3];
25 :     output vec3 txtx = zeros[3];
26 :    
27 :     update {
28 :     txtb = Tb(pos);
29 :     txtc = Tc(pos);
30 :     txtm = Tm(pos);
31 :     txtw = Tw(pos);
32 :     if (inside(pos, Tww)) {
33 :     txtx = Tww(pos);
34 :     } else {
35 :     txtx = [0.0, 0.0, 1.0];
36 :     }
37 :     stabilize;
38 :     }
39 :     }
40 :    
41 :     initially [ Sample([real(i), real(j)]) | i in -sz{0} .. 2*sz{0}, j in -sz{1} .. 2*sz{1} ];

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