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

SCM Repository

[diderot] Annotation of /tests/new-tests/border-test.diderot
ViewVC logotype

Annotation of /tests/new-tests/border-test.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4640 - (view) (download)

1 : glk 4640 #version 2
2 :    
3 :     /* border-test.diderot
4 :     *
5 :     * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
6 :     *
7 :     * COPYRIGHT (c) 2015 The University of Chicago
8 :     * All rights reserved.
9 :     *
10 :     * Test the border control features.
11 :     *
12 :     * To convert output to PNG:
13 :     *
14 :     * for i in c m w x ; do ; unu quantize -b 8 -i txt$i.nrrd -o txt$i.png; done
15 :     *
16 :     * or
17 :     *
18 :     * unu quantize -b 8 -i txtc.nrrd -o txtc.png
19 :     * unu quantize -b 8 -i txtm.nrrd -o txtm.png
20 :     * unu quantize -b 8 -i txtw.nrrd -o txtw.png
21 :     * unu quantize -b 8 -i txtx.nrrd -o txtx.png
22 :     */
23 :    
24 :     input image(2)[3] Img = load_image("data/mandrill.nrrd");
25 :    
26 :     //field#0(2)[3] T = tent ⊛ Img;
27 :     //field#0(2)[3] Tb = tent ⊛ border(Img, [0.0, 0.0, 0.0]);
28 :     field#0(2)[3] Tc = tent ⊛ clamp(Img);
29 :     field#0(2)[3] Tm = tent ⊛ mirror(Img);
30 :     field#0(2)[3] Tw = tent ⊛ wrap(Img);
31 :     field#0(2)[3] Tww = tent ⊛ wrap(wrap(Img)); // should be the sams as Tw
32 :     int[2] sz = size(Img);
33 :    
34 :     strand Sample (vec2 pos)
35 :     {
36 :     //output vec3 txtb = nan[3];
37 :     output vec3 txtc = nan[3];
38 :     output vec3 txtm = nan[3];
39 :     output vec3 txtw = nan[3];
40 :     output vec3 txtx = nan[3];
41 :    
42 :     update {
43 :     //txtb = Tb(pos);
44 :     txtc = Tc(pos);
45 :     txtm = Tm(pos);
46 :     txtw = Tw(pos);
47 :     if (inside(pos, Tww)) {
48 :     txtx = Tww(pos);
49 :     } else {
50 :     txtx = [0.0, 0.0, 1.0];
51 :     }
52 :     stabilize;
53 :     }
54 :     }
55 :    
56 :     create_array { Sample([real(i), real(j)]) | i in -sz[0] .. 2*sz[0], j in -sz[1] .. 2*sz[1] }
57 :    

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