%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                      %
% 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
