[Gzz-commits] manuscripts/Paper Makefile paper.tex visper.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    manuscripts
Changes by:     Tuomas J. Lukka <address@hidden>        03/03/29 08:45:16

Modified files:
        Paper          : Makefile paper.tex visper.mp 

Log message:
        Feature image

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/manuscripts/Paper/Makefile.diff?tr1=1.10&tr2=1.11&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/manuscripts/Paper/paper.tex.diff?tr1=1.64&tr2=1.65&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/manuscripts/Paper/visper.mp.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: manuscripts/Paper/Makefile
diff -u manuscripts/Paper/Makefile:1.10 manuscripts/Paper/Makefile:1.11
--- manuscripts/Paper/Makefile:1.10     Sat Mar 29 06:19:17 2003
+++ manuscripts/Paper/Makefile  Sat Mar 29 08:45:16 2003
@@ -9,10 +9,10 @@
 all: paper.dvi
        dvips paper
 
-visper.1: visper.mp
+visper.1 visper.2: visper.mp
        mpost visper
 
-paper.dvi: pipe.1 perceptual-model.eps pipeline.eps buoyoing.1 buoyoing.5 
zipf.ps zipfarea.1 paper.tex
+paper.dvi: pipe.1 perceptual-model.eps pipeline.eps buoyoing.1 buoyoing.5 
zipf.ps zipfarea.1 paper.tex visper.1 visper.2
        latex "${LATEXCMD} paper"
        BIBINPUTS=..:$$BIBINPUTS bibtex paper
        latex "${LATEXCMD} paper"
Index: manuscripts/Paper/paper.tex
diff -u manuscripts/Paper/paper.tex:1.64 manuscripts/Paper/paper.tex:1.65
--- manuscripts/Paper/paper.tex:1.64    Sat Mar 29 08:18:36 2003
+++ manuscripts/Paper/paper.tex Sat Mar 29 08:45:16 2003
@@ -568,10 +568,11 @@
 %generating textures based on seed numbers [identity]
 
 \begin{figure}
-\centering
 %\fbox{\vbox{\vskip 3in}}
 \ifpics
-\includegraphics{perceptual-model}
+\def\visscal{.6}
+a)\\\includegraphics[scale=\visscal]{visper.1}\\\\\\
+b)\\\includegraphics[scale=\visscal]{visper.2}
 \fi
 \caption{
 \label{fig-perceptual}
@@ -581,10 +582,13 @@
 which contains numbers (activation levels) corresponding to 
 e.g.~colors, edges, curves and small patterns.
 The feature vector is matched against the memorized textures
-with a simple model. The simplicity of the feature matcher
+with a simple model. 
+The simplicity of the feature matcher
 is the key feature of the model and is used in the text 
 to formulate principles
 about recognizability.
+Key is also that producing a distribution of feature vectors
+with maximum entropy is...
 }
 \end{figure}
 
Index: manuscripts/Paper/visper.mp
diff -u manuscripts/Paper/visper.mp:1.3 manuscripts/Paper/visper.mp:1.4
--- manuscripts/Paper/visper.mp:1.3     Sat Mar 29 07:33:52 2003
+++ manuscripts/Paper/visper.mp Sat Mar 29 08:45:16 2003
@@ -23,6 +23,7 @@
 pair eyeright, eyeleft;
 eyeright:= (10,0);
 eyeleft := (-30, 0);
+pair p[];
 
 def basic =
     addto currentpicture also eye scaled 20 shifted (-10,0);
@@ -38,23 +39,26 @@
     pair v; 
     v := (urcorner(p) - ulcorner(p));
     for i = 0 upto 7:
-       addto p doublepath fullcircle scaled (abs(v)/8.0) 
+       addto p 
+               if i=3: contour else: doublepath fi 
+           fullcircle scaled (abs(v)/8.0) 
            shifted ((i/7.0)*v + (0,17))
            withpen pencircle scaled .5pt;
     endfor;
 
     boxit.mem(p);
 
-    xpart(mem.c) = xpart(fex.c) = xpart(fv.c) = 0;
-    ypart(fex.c) = yoffs;
-    ypart(fv.c) = yoffs + ydist;
-    ypart(mem.c) = yoffs + 2.3 * ydist;
+    fex.c = eyeright + (70,0);
+
+    xpart(mem.c) = xpart(fex.c) = xpart(fv.c);
+    ypart(fv.c) = ypart(fex.c) + ydist;
+    ypart(mem.c) = ypart(fex.c) + 2.3 * ydist;
     fv.w-fv.e = fex.w-fex.e;
 
     fixpos(fex, fv, mem);
     fixsize(fex, fv, mem);
 
-    xpart(ma.c) = 70;
+    xpart(ma.c) = xpart(mem.c) + 70;
 
     ypart(ma.c) = .5[ypart(fv.s), ypart(mem.n)];
 
@@ -67,14 +71,15 @@
 
     drawunboxed(mem);
 
-    drawarrow eyeright{right} .. tension 1 .. fex.n{down};
+    drawarrow eyeright{right} -- fex.w;
     drawarrow fex.s{down} -- .3[fex.s, fv.n];
 
     drawarrow ma.w{left} .. fv.s{up} dashed evenly;
-    drawarrow ma.w{left} .. (mem.n+(0,-5)){down} dashed evenly;
+    drawarrow ma.w{left} .. (mem.n+(-5,-4)){down} dashed evenly;
 
     for i = 1 upto 9:
-       addto currentpicture doublepath unitsquare shifted (-.5,0)
+       addto currentpicture doublepath
+               unitsquare shifted (-.5,0)
            yscaled uniformdeviate(35)
            xscaled (abs(fv.w-fv.e)/11)
            shifted ((i/10.0)[fv.ne, fv.nw])
@@ -82,13 +87,8 @@
            ;
     endfor;
 
-enddef;
-
-beginfig(1);
-
-    xo = 50;
+    xo := 50;
     
-    pair p[];
     p[0] := (-130 + xo,20);
     p[1] := (-140 + xo,10);
     p[2] := (-135 + xo,-20);
@@ -101,10 +101,14 @@
        draw p[i] -- eyeleft dashed evenly withpen pencircle scaled .3pt;
     endfor
 
-    label.bot("Texture", p[2]);
 
-basic;
+enddef;
 
+beginfig(1);
+    basic;
+    label.bot("Texture", p[2]);
+
+currentpicture := currentpicture shifted (llcorner currentpicture);
 
 endfig;
 
@@ -112,6 +116,59 @@
 
 basic;
 
+    path box;
+
+    box := bbox(p[0]--p[1]--p[2]--p[3]);
+
+
+ccx = 210;
+ccy = 160;
+cor = 20;
+path csp;
+csp = (-200, 0){up} ... (-200+cor, 150-cor) ... (0, 150){right};
+csp := (csp & (reverse csp xscaled -1) ..(csp scaled -1) ..(reverse csp 
yscaled -1)) .. cycle ;
+path cbp;
+cbp = (-ccx,-ccy) -- (-ccx,ccy) -- (ccx, ccy) -- (ccx,-ccy) -- cycle ;
+
+picture screen;
+screen := nullpicture;
+addto screen doublepath csp withpen pencircle scaled 3pt;
+addto screen doublepath cbp withpen pencircle scaled 2pt;;
+
+addto currentpicture also
+ screen scaled (abs(ulcorner(box)-llcorner(box)) / 250) shifted (center(box));
+
+
+    circleit.seed("Seed value");
+    boxit.fgen("Feature generation");
+    
+    picture p;
+    p:= "Objects w/ identity" infont defaultfont;
+    pair v; 
+    v := (urcorner(p) - ulcorner(p));
+    pair tp;
+    for i = 0 upto 7:
+       addto p if i=3: contour else: doublepath fi fullcircle scaled 
(abs(v)/8.0) 
+           shifted ((i/7.0)*v + (0,17))
+           withpen pencircle scaled .5pt;
+    endfor;
+
+    boxit.obj(p);
+
+    fgen.c = seed.c + (0, 40);
+    obj.c = seed.c - (0,50);
+    fgen.c = center(box) + (-60, -60);
+
+    seed.dy = 10;
+
+    drawboxed(seed, fgen);
+    drawunboxed(obj);
+
+    drawarrow (obj.n + (-5,-4)) -- seed.s;
+    drawarrow seed.n -- fgen.s;
+    drawarrow fgen.n -- (p[2]+(-20,-10));
+
+currentpicture := currentpicture shifted (llcorner currentpicture);
 endfig;
 
 end