File: sm_loop.tex

package info (click to toggle)
gle-graphics-manual 4.3.8-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 1,876 kB
  • sloc: perl: 67; sh: 24; makefile: 14
file content (113 lines) | stat: -rw-r--r-- 4,123 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                      %
% GLE - Graphics Layout Engine <http://glx.sourceforge.io/>            %
%                                                                      %
% Modified BSD License                                                 %
%                                                                      %
% Copyright (C) 2009 GLE.                                              %
%                                                                      %
% Redistribution and use in source and binary forms, with or without   %
% modification, are permitted provided that the following conditions   %
% are met:                                                             %
%                                                                      %
%    1. Redistributions of source code must retain the above copyright %
% notice, this list of conditions and the following disclaimer.        %
%                                                                      %
%    2. Redistributions in binary form must reproduce the above        %
% copyright notice, this list of conditions and the following          %
% disclaimer in the documentation and/or other materials provided with %
% the distribution.                                                    %
%                                                                      %
%    3. The name of the author may not be used to endorse or promote   %
% products derived from this software without specific prior written   %
% permission.                                                          %
%                                                                      %
% THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR   %
% IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED       %
% WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE   %
% ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY       %
% DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL   %
% DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE    %
% GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS        %
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER %
% IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR      %
% OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN  %
% IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.                        %
%                                                                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%\psgraphin{loop}{15.0}{25.0}{Loop, Subroutines}
\graphin{appendix/fig/loop}{15.0cm}{25.0cm}{1}
\addcontentsline{toc}{section}{Loop, Subroutines}
\clearpage
\begin{center}
\begin{minipage}[t]{12.0cm}
%%\input{loop.gle}
{\scriptsize %\footnotesize
\begin{verbatim}
size 17 17 box !18 24 box		! This is LOOP.GLE, shows programming examples
amove 5 14
set just center hei 1
text Subroutines, Loops
set just left hei .7
set hei .9

! First define a single neuron
sub neuron xx yy
   amove xx yy 
   begin scale .5 .5
      curve  0  .4  .4  .4  .4 -.4  .4  .4  .4 -.8 -.4 -.8 -.4 .4
      curve -.4 -.8 -.4  .4 -.4 -.4 -.4  .4  0  .4   
      closepath
   end scale
end sub

! Draw the neurons
for xx = 0 to 1
   for i = 1 to 6
      @neuron xx*6+2 i*2+1.2
   next i
next xx

! Draw the lines between them
for i = 1 to 6
   for j = 1 to 6
      amove 3 i*2+1
      aline 7.5 j*2+1
   next j
next i

!--------------------------------------------------------------------------
include ziptext.gle
amove 12 1
@ziptext "Hello"
amove 13 4
begin rotate 20
   @ziptext "Green trees"
end rotate
\end{verbatim}
}
\hfill {\small loop.gle}\\
%
%%\input{loop.gle}
{\scriptsize %\footnotesize
\begin{verbatim}
sub ziptext tt$
gsave
for i = 1 to 0 step -.05
	set color (i)
	write tt$ 
	rmove -.05 .025
next i
set color white
write tt$ 
grestore
end sub

\end{verbatim}
}
\hfill {\small ziptext.gle}\\
%
\end{minipage}
\end{center}
\vfill