1
# -- m4 % > %*.ld; echo ready --
2
# Copyright(C) 2005 Bernhard R. Link
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 2 of the License, or
7
# (at your option) any later version.
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
# GNU General Public License for more details.
14
# You should have received a copy of the GNU General Public License
15
# along with this program; if not, write to the Free Software
16
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18
define([showingeneratedfile],[$1])
19
showingeneratedfile([#This is a generated file. Make changes in the .m4 file with the same basename.])
25
startpic = lreAlle.xpm
26
startdist = "-........-","-........-", "F........F", "F........F","F...-....F"
27
startdist[1] = "F........F","F........F", "F........F", "F........F","F........F"
41
pos=eval( 3 + othernr ),
42
pos=eval( 6 + othernr ),
43
pos=eval( 9 + othernr ),
44
pos=eval( 12+ othernr ),
45
pos=eval( 15+ othernr );
52
define([activate],[kind@($1,$2)=thisname;ro@($1,$2)=1])dnl
53
define([looklook],[dnl
54
if kind@($1,$2)==thisname->{$5}dnl
55
ifelse($6,0,,[else->dnl
56
if kind@($1,$2)==othername->{dnl
57
looklook(eval($1 + $3),eval($2 +$4),$3,$4,activate($1,$2)[;]$5,decr($6))}dnl
61
define([look],[if kind@($1,$2)==othername->{dnl
62
looklook(eval($1+$1),eval($2+$2),$1,$2,activate($1,$2),$3)dnl
66
dnl defcolor(self,other,mypos)
67
define([defcolor],[dnl
68
define([thisname],_$1)dnl
69
define([othername],[_]eval( 1- $1))dnl
70
define([thisnr],$1)dnl
71
define([othernr],eval( 1 - $1))