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

SCM Repository

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

Annotation of /branches/fem/test/border-test.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3210 - (view) (download)

1 : jhr 2962 /* 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 : jhr 3076 *
8 :     * To convert output to PNG:
9 :     *
10 :     * for i in c m w x ; do ; unu quantize -b 8 -i txt$i.nrrd -o txt$i.png; done
11 :     *
12 :     * or
13 :     *
14 :     * unu quantize -b 8 -i txtc.nrrd -o txtc.png
15 :     * unu quantize -b 8 -i txtm.nrrd -o txtm.png
16 :     * unu quantize -b 8 -i txtw.nrrd -o txtw.png
17 :     * unu quantize -b 8 -i txtx.nrrd -o txtx.png
18 : jhr 2962 */
19 :    
20 : jhr 2974 input image(2)[3] Img = image("../data/mandrill.nrrd");
21 : jhr 2962
22 : jhr 2965 //field#0(2)[3] T = tent ⊛ Img;
23 : jhr 3073 //field#0(2)[3] Tb = tent ⊛ border(Img, [0.0, 0.0, 0.0]);
24 : jhr 2965 field#0(2)[3] Tc = tent ⊛ clamp(Img);
25 :     field#0(2)[3] Tm = tent ⊛ mirror(Img);
26 :     field#0(2)[3] Tw = tent ⊛ wrap(Img);
27 : jhr 2975 field#0(2)[3] Tww = tent ⊛ wrap(wrap(Img)); // should be the sams as Tw
28 : jhr 2962 int{2} sz = size(Img);
29 :    
30 :     strand Sample (vec2 pos)
31 :     {
32 : jhr 3073 //output vec3 txtb = nan[3];
33 :     output vec3 txtc = nan[3];
34 :     output vec3 txtm = nan[3];
35 :     output vec3 txtw = nan[3];
36 :     output vec3 txtx = nan[3];
37 : jhr 2962
38 :     update {
39 : jhr 3073 //txtb = Tb(pos);
40 : jhr 2962 txtc = Tc(pos);
41 :     txtm = Tm(pos);
42 :     txtw = Tw(pos);
43 : jhr 2975 if (inside(pos, Tww)) {
44 :     txtx = Tww(pos);
45 :     } else {
46 :     txtx = [0.0, 0.0, 1.0];
47 :     }
48 : jhr 2962 stabilize;
49 :     }
50 :     }
51 :    
52 : jhr 2965 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