home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sources / x / 425 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  50.6 KB
  1. Path: sparky!uunet!ogicse!uwm.edu!caen!sdd.hp.com!mips!msi!dcmartin
  2. From: jung@dia.informatik.uni-stuttgart.de (Norbert Jung)
  3. Newsgroups: comp.sources.x
  4. Subject: v18i057: xvier v1.0 - cute GO'ish game, Part01/02
  5. Message-ID: <csx-18i057-xview-1.0@uunet.UU.NET>
  6. Date: 23 Jul 92 14:16:33 GMT
  7. Article-I.D.: uunet.csx-18i057-xview-1.0
  8. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  9. Organization: Molecular Simulations, Inc.
  10. Lines: 1800
  11. Approved: dcmartin@msi.com
  12. Originator: dcmartin@fascet
  13.  
  14. Submitted-by: Norbert Jung <jung@dia.informatik.uni-stuttgart.de>
  15. Posting-number: Volume 18, Issue 57
  16. Archive-name: xview-1.0/part01
  17.  
  18. xvier is a simple game where you and your opponent alternately throw
  19. stones into free columns. The stones pile up in the columns, and the
  20. goal is to get four stones in a row, in a column or diagonally. The
  21. game compiles without modifications at least on
  22.  
  23.     Sun Sun4        SunOS 4.0, 4.1.1
  24.     Sun Sun3/60        SunOS 4.0
  25.     IBM RS6000        AIX 3.1
  26.     HP 9000/720        HP-UX 8.05
  27.     HP 9000/350        HP-UX 8.00
  28.     DEC VS3100        Ultrix-32 V3.1
  29.     DEC DS5400        Ultrix 4.2
  30.     Sequent Symmetry    Dynix 3.0.17.9
  31.  
  32. #!/bin/sh
  33. # This is a shell archive (produced by shar 3.50)
  34. # To extract the files from this archive, save it to a file, remove
  35. # everything above the "!/bin/sh" line above, and type "sh file_name".
  36. #
  37. # made 07/23/1992 14:14 UTC by dcmartin@fascet
  38. # Source directory /home/fascet/dcmartin/csx/src/tmp/xvier-1.0
  39. #
  40. # existing files will NOT be overwritten unless -c is specified
  41. #
  42. # This is part 1 of a multipart archive                                    
  43. # do not concatenate these parts, unpack them in order with /bin/sh        
  44. #
  45. # This shar contains:
  46. # length  mode       name
  47. # ------ ---------- ------------------------------------------
  48. #    901 -rw-r--r-- Imakefile
  49. #   1251 -rw-r--r-- Makefile.std
  50. #   1502 -rw-r--r-- README
  51. #     42 -rw-r--r-- patchlevel.h
  52. #    322 -rw-r--r-- qdown.xbm
  53. #    290 -rw-r--r-- qdownm.xbm
  54. #    322 -rw-r--r-- qleft.xbm
  55. #    290 -rw-r--r-- qleftm.xbm
  56. #    327 -rw-r--r-- qright.xbm
  57. #    293 -rw-r--r-- qrightm.xbm
  58. #    312 -rw-r--r-- qup.xbm
  59. #    284 -rw-r--r-- qupm.xbm
  60. #  17343 -rw-r--r-- vier.c
  61. #    307 -rw-r--r-- vier.h
  62. #   2741 -rw-r--r-- vierinit.c
  63. #  39330 -rw-r--r-- xvier.c
  64. #    149 -rw-r--r-- xvier.h
  65. #   2486 -rw-r--r-- xvier.man
  66. #  11332 -rw-r--r-- Makefile
  67. #
  68. if test -r _shar_seq_.tmp; then
  69.     echo 'Must unpack archives in sequence!'
  70.     echo Please unpack part `cat _shar_seq_.tmp` next
  71.     exit 1
  72. fi
  73. # ============= Imakefile ==============
  74. if test -f 'Imakefile' -a X"$1" != X"-c"; then
  75.     echo 'x - skipping Imakefile (File already exists)'
  76.     rm -f _shar_wnt_.tmp
  77. else
  78. > _shar_wnt_.tmp
  79. echo 'x - extracting Imakefile (Text)'
  80. sed 's/^X//' << 'SHAR_EOF' > 'Imakefile' &&
  81. # I've seen window managers which couldn't handle aspect ratio hints.
  82. # Uncomment if you have resize problems.
  83. #XVIER_ASPECT    = -DXVIER_WM_ASPECT_BUG
  84. X
  85. # Some systems don't provide FD_SET #define's. HP 9000 and IBM RS6000
  86. # are handled in xvier.h, but on other systems you can uncomment this.
  87. #NO_FD_SET = -DNO_FD_SET
  88. X
  89. # If "select" is missing, but you have "poll", try this:
  90. #NO_SELECT = -DNO_SELECT
  91. X
  92. # And if "getdtablesize" is missing, use the following:
  93. #NO_GETDTABSIZE = -DNO_GETDTABSIZE
  94. X
  95. PROGNAME    = $(LIBDIR)$(PATHSEP)xvier_prog
  96. DEFINES        = $(XVIER_ASPECT) $(NO_FD_SET) $(NO_SELECT) \
  97. X            $(NO_GETDTABSIZE) -DPROGNAME=\"$(PROGNAME)\"
  98. X
  99. PROGRAMS    = xvier xvier_prog
  100. X
  101. SRCS1        = xvier.c
  102. OBJS1        = xvier.o
  103. SRCS2        = vierinit.c vier.c
  104. OBJS2        = vierinit.o vier.o
  105. X
  106. ComplexProgramTarget_1(xvier, $(XLIB), /**/)
  107. NormalProgramTarget(xvier_prog, $(OBJS2), /**/, /**/, /**/)
  108. X
  109. InstallProgram(xvier_prog, $(PROGNAME))
  110. SHAR_EOF
  111. chmod 0644 Imakefile ||
  112. echo 'restore of Imakefile failed'
  113. Wc_c="`wc -c < 'Imakefile'`"
  114. test 901 -eq "$Wc_c" ||
  115.     echo 'Imakefile: original size 901, current size' "$Wc_c"
  116. rm -f _shar_wnt_.tmp
  117. fi
  118. # ============= Makefile.std ==============
  119. if test -f 'Makefile.std' -a X"$1" != X"-c"; then
  120.     echo 'x - skipping Makefile.std (File already exists)'
  121.     rm -f _shar_wnt_.tmp
  122. else
  123. > _shar_wnt_.tmp
  124. echo 'x - extracting Makefile.std (Text)'
  125. sed 's/^X//' << 'SHAR_EOF' > 'Makefile.std' &&
  126. # I've seen window managers which couldn't handle aspect ratio hints.
  127. # Uncomment if you have resize problems.
  128. #XVIER_ASPECT = -DXVIER_WM_ASPECT_BUG
  129. X
  130. # Some systems don't provide FD_SET #define's. HP 9000 and IBM RS6000
  131. # are handled in xvier.h, but on other systems you can uncomment this.
  132. #NO_FD_SET = -DNO_FD_SET
  133. X
  134. # If "select" is missing, but you have "poll", try this:
  135. #NO_SELECT = -DNO_SELECT
  136. X
  137. # And if "getdtablesize" is missing, use the following:
  138. #NO_GETDTABSIZE = -DNO_GETDTABSIZE
  139. X
  140. CFLAGS = -O $(XVIER_ASPECT) $(NO_FD_SET) $(NO_SELECT) $(NO_GETDTABSIZE)
  141. XX11LIB = -lX11
  142. DESTDIR = /usr/local/bin
  143. PROGDESTDIR = /usr/local/lib
  144. PROGDEST = -DPROGNAME=\"$(PROGDESTDIR)/xvier_prog\"
  145. MANDESTDIR = /usr/local/man
  146. MANSECT = 6
  147. X
  148. all:    xvier xvier_prog
  149. X
  150. xvier:    xvier.c xvier.h qdown.xbm qleft.xbm qright.xbm qup.xbm\
  151. X        qdownm.xbm qleftm.xbm qrightm.xbm qupm.xbm patchlevel.h
  152. X    $(CC) -o xvier $(CFLAGS) $(PROGDEST) xvier.c $(X11LIB)
  153. X
  154. xvier_prog:    vier.o vierinit.o
  155. X    $(CC) -o xvier_prog vier.o vierinit.o
  156. X
  157. vier.o:     vier.h vier.c xvier.h
  158. vierinit.o: vier.h vierinit.c xvier.h
  159. X
  160. install: all xvier.man
  161. X    cp xvier_prog $(PROGDESTDIR)
  162. X    cp xvier $(DESTDIR)
  163. X    cp xvier.man $(MANDESTDIR)/man$(MANSECT)/xvier.$(MANSECT)
  164. X
  165. clean::
  166. X    -rm *.o *~ xvier vier core xvier_prog
  167. SHAR_EOF
  168. chmod 0644 Makefile.std ||
  169. echo 'restore of Makefile.std failed'
  170. Wc_c="`wc -c < 'Makefile.std'`"
  171. test 1251 -eq "$Wc_c" ||
  172.     echo 'Makefile.std: original size 1251, current size' "$Wc_c"
  173. rm -f _shar_wnt_.tmp
  174. fi
  175. # ============= README ==============
  176. if test -f 'README' -a X"$1" != X"-c"; then
  177.     echo 'x - skipping README (File already exists)'
  178.     rm -f _shar_wnt_.tmp
  179. else
  180. > _shar_wnt_.tmp
  181. echo 'x - extracting README (Text)'
  182. sed 's/^X//' << 'SHAR_EOF' > 'README' &&
  183. xvier is a simple game where you and your opponent alternately throw
  184. stones into free columns. The stones pile up in the columns, and the
  185. goal is to get four stones in a row, in a column or diagonally. The
  186. game compiles without modifications at least on
  187. X
  188. X    Sun Sun4        SunOS 4.0, 4.1.1
  189. X    Sun Sun3/60        SunOS 4.0
  190. X    IBM RS6000        AIX 3.1
  191. X    HP 9000/720        HP-UX 8.05
  192. X    HP 9000/350        HP-UX 8.00
  193. X    DEC VS3100        Ultrix-32 V3.1
  194. X    DEC DS5400        Ultrix 4.2
  195. X    Sequent Symmetry    Dynix 3.0.17.9
  196. X
  197. To install xvier:
  198. X
  199. 1. If you use Makefile.std, copy it to Makefile and choose locations
  200. X   for the X11-binary (default: /usr/local/bin), the game program
  201. X   (default: /usr/local/lib), and the manual page (default:
  202. X   /usr/local/man/man6).
  203. X   If you use imake, type "xmkmf" and "make depend".
  204. X
  205. 2. Type "make".
  206. X
  207. 3. Test the game with "./xvier -prog ./xvier_prog"
  208. X
  209. 4. If it works, type "make install" (and "make install.man" with
  210. X   imake).
  211. X
  212. If you have problems with the compilation, look at the comments in
  213. Makefile.std or Imakefile.
  214. X
  215. The game program uses a simple search tree, and the levels correspond
  216. to the depth of this tree. Thus the higher levels are quite slow, but
  217. normally I don't need them to get a good opponent ;-)
  218. It's interesting that level 1 seems to be weaker than level 0.
  219. X
  220. You may use, copy, modify, and distribute this software and its
  221. documentation for any purpose and without fee. It is provided "as is"
  222. without any express or implied warranty.
  223. X
  224. Have fun!
  225. X
  226. X    Norbert Jung
  227. X    Email: jung@dia.informatik.uni-stuttgart.de
  228. SHAR_EOF
  229. chmod 0644 README ||
  230. echo 'restore of README failed'
  231. Wc_c="`wc -c < 'README'`"
  232. test 1502 -eq "$Wc_c" ||
  233.     echo 'README: original size 1502, current size' "$Wc_c"
  234. rm -f _shar_wnt_.tmp
  235. fi
  236. # ============= patchlevel.h ==============
  237. if test -f 'patchlevel.h' -a X"$1" != X"-c"; then
  238.     echo 'x - skipping patchlevel.h (File already exists)'
  239.     rm -f _shar_wnt_.tmp
  240. else
  241. > _shar_wnt_.tmp
  242. echo 'x - extracting patchlevel.h (Text)'
  243. sed 's/^X//' << 'SHAR_EOF' > 'patchlevel.h' &&
  244. #define XVIER_VERSION "xvier Version 1.0"
  245. SHAR_EOF
  246. chmod 0644 patchlevel.h ||
  247. echo 'restore of patchlevel.h failed'
  248. Wc_c="`wc -c < 'patchlevel.h'`"
  249. test 42 -eq "$Wc_c" ||
  250.     echo 'patchlevel.h: original size 42, current size' "$Wc_c"
  251. rm -f _shar_wnt_.tmp
  252. fi
  253. # ============= qdown.xbm ==============
  254. if test -f 'qdown.xbm' -a X"$1" != X"-c"; then
  255.     echo 'x - skipping qdown.xbm (File already exists)'
  256.     rm -f _shar_wnt_.tmp
  257. else
  258. > _shar_wnt_.tmp
  259. echo 'x - extracting qdown.xbm (Text)'
  260. sed 's/^X//' << 'SHAR_EOF' > 'qdown.xbm' &&
  261. #define qdown_width 16
  262. #define qdown_height 16
  263. #define qdown_x_hot 8
  264. #define qdown_y_hot 8
  265. static char qdown_bits[] = {
  266. X   0x00, 0x00, 0x80, 0x01, 0x80, 0x01, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01,
  267. X   0x80, 0x01, 0x80, 0x01, 0xc0, 0x00, 0x60, 0x00, 0x30, 0x18, 0x30, 0x18,
  268. X   0x30, 0x18, 0x60, 0x0c, 0xc0, 0x07, 0x00, 0x00};
  269. SHAR_EOF
  270. chmod 0644 qdown.xbm ||
  271. echo 'restore of qdown.xbm failed'
  272. Wc_c="`wc -c < 'qdown.xbm'`"
  273. test 322 -eq "$Wc_c" ||
  274.     echo 'qdown.xbm: original size 322, current size' "$Wc_c"
  275. rm -f _shar_wnt_.tmp
  276. fi
  277. # ============= qdownm.xbm ==============
  278. if test -f 'qdownm.xbm' -a X"$1" != X"-c"; then
  279.     echo 'x - skipping qdownm.xbm (File already exists)'
  280.     rm -f _shar_wnt_.tmp
  281. else
  282. > _shar_wnt_.tmp
  283. echo 'x - extracting qdownm.xbm (Text)'
  284. sed 's/^X//' << 'SHAR_EOF' > 'qdownm.xbm' &&
  285. #define qdownmask_width 16
  286. #define qdownmask_height 16
  287. static char qdownmask_bits[] = {
  288. X   0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03,
  289. X   0xc0, 0x03, 0xe0, 0x03, 0xf0, 0x03, 0xf8, 0x3d, 0xf8, 0x3c, 0x78, 0x3c,
  290. X   0xf8, 0x3e, 0xf8, 0x3f, 0xf0, 0x1f, 0xe0, 0x0f};
  291. SHAR_EOF
  292. chmod 0644 qdownm.xbm ||
  293. echo 'restore of qdownm.xbm failed'
  294. Wc_c="`wc -c < 'qdownm.xbm'`"
  295. test 290 -eq "$Wc_c" ||
  296.     echo 'qdownm.xbm: original size 290, current size' "$Wc_c"
  297. rm -f _shar_wnt_.tmp
  298. fi
  299. # ============= qleft.xbm ==============
  300. if test -f 'qleft.xbm' -a X"$1" != X"-c"; then
  301.     echo 'x - skipping qleft.xbm (File already exists)'
  302.     rm -f _shar_wnt_.tmp
  303. else
  304. > _shar_wnt_.tmp
  305. echo 'x - extracting qleft.xbm (Text)'
  306. sed 's/^X//' << 'SHAR_EOF' > 'qleft.xbm' &&
  307. #define qleft_width 16
  308. #define qleft_height 16
  309. #define qleft_x_hot 7
  310. #define qleft_y_hot 8
  311. static char qleft_bits[] = {
  312. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38, 0x00, 0x7c, 0x00,
  313. X   0xc6, 0x00, 0x82, 0x67, 0x02, 0x67, 0x02, 0x00, 0x06, 0x00, 0x3c, 0x00,
  314. X   0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  315. SHAR_EOF
  316. chmod 0644 qleft.xbm ||
  317. echo 'restore of qleft.xbm failed'
  318. Wc_c="`wc -c < 'qleft.xbm'`"
  319. test 322 -eq "$Wc_c" ||
  320.     echo 'qleft.xbm: original size 322, current size' "$Wc_c"
  321. rm -f _shar_wnt_.tmp
  322. fi
  323. # ============= qleftm.xbm ==============
  324. if test -f 'qleftm.xbm' -a X"$1" != X"-c"; then
  325.     echo 'x - skipping qleftm.xbm (File already exists)'
  326.     rm -f _shar_wnt_.tmp
  327. else
  328. > _shar_wnt_.tmp
  329. echo 'x - extracting qleftm.xbm (Text)'
  330. sed 's/^X//' << 'SHAR_EOF' > 'qleftm.xbm' &&
  331. #define qleftmask_width 16
  332. #define qleftmask_height 16
  333. static char qleftmask_bits[] = {
  334. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7c, 0x00, 0xfe, 0x00, 0xff, 0x01,
  335. X   0xff, 0xff, 0xef, 0xff, 0xc7, 0xff, 0x8f, 0xff, 0x7f, 0x00, 0x7f, 0x00,
  336. X   0x7e, 0x00, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x00};
  337. SHAR_EOF
  338. chmod 0644 qleftm.xbm ||
  339. echo 'restore of qleftm.xbm failed'
  340. Wc_c="`wc -c < 'qleftm.xbm'`"
  341. test 290 -eq "$Wc_c" ||
  342.     echo 'qleftm.xbm: original size 290, current size' "$Wc_c"
  343. rm -f _shar_wnt_.tmp
  344. fi
  345. # ============= qright.xbm ==============
  346. if test -f 'qright.xbm' -a X"$1" != X"-c"; then
  347.     echo 'x - skipping qright.xbm (File already exists)'
  348.     rm -f _shar_wnt_.tmp
  349. else
  350. > _shar_wnt_.tmp
  351. echo 'x - extracting qright.xbm (Text)'
  352. sed 's/^X//' << 'SHAR_EOF' > 'qright.xbm' &&
  353. #define qright_width 16
  354. #define qright_height 16
  355. #define qright_x_hot 8
  356. #define qright_y_hot 7
  357. static char qright_bits[] = {
  358. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x3c, 0x00, 0x60,
  359. X   0x00, 0x40, 0xe6, 0x40, 0xe6, 0x41, 0x00, 0x63, 0x00, 0x3e, 0x00, 0x1c,
  360. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  361. SHAR_EOF
  362. chmod 0644 qright.xbm ||
  363. echo 'restore of qright.xbm failed'
  364. Wc_c="`wc -c < 'qright.xbm'`"
  365. test 327 -eq "$Wc_c" ||
  366.     echo 'qright.xbm: original size 327, current size' "$Wc_c"
  367. rm -f _shar_wnt_.tmp
  368. fi
  369. # ============= qrightm.xbm ==============
  370. if test -f 'qrightm.xbm' -a X"$1" != X"-c"; then
  371.     echo 'x - skipping qrightm.xbm (File already exists)'
  372.     rm -f _shar_wnt_.tmp
  373. else
  374. > _shar_wnt_.tmp
  375. echo 'x - extracting qrightm.xbm (Text)'
  376. sed 's/^X//' << 'SHAR_EOF' > 'qrightm.xbm' &&
  377. #define qrightmask_width 16
  378. #define qrightmask_height 16
  379. static char qrightmask_bits[] = {
  380. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x00, 0x7e, 0x00, 0xfe, 0x00, 0xfe,
  381. X   0xff, 0xf1, 0xff, 0xe3, 0xff, 0xf7, 0xff, 0xff, 0x80, 0xff, 0x00, 0x7f,
  382. X   0x00, 0x3e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  383. SHAR_EOF
  384. chmod 0644 qrightm.xbm ||
  385. echo 'restore of qrightm.xbm failed'
  386. Wc_c="`wc -c < 'qrightm.xbm'`"
  387. test 293 -eq "$Wc_c" ||
  388.     echo 'qrightm.xbm: original size 293, current size' "$Wc_c"
  389. rm -f _shar_wnt_.tmp
  390. fi
  391. # ============= qup.xbm ==============
  392. if test -f 'qup.xbm' -a X"$1" != X"-c"; then
  393.     echo 'x - skipping qup.xbm (File already exists)'
  394.     rm -f _shar_wnt_.tmp
  395. else
  396. > _shar_wnt_.tmp
  397. echo 'x - extracting qup.xbm (Text)'
  398. sed 's/^X//' << 'SHAR_EOF' > 'qup.xbm' &&
  399. #define qup_width 16
  400. #define qup_height 16
  401. #define qup_x_hot 7
  402. #define qup_y_hot 7
  403. static char qup_bits[] = {
  404. X   0x00, 0x00, 0xe0, 0x03, 0x30, 0x06, 0x18, 0x0c, 0x18, 0x0c, 0x18, 0x0c,
  405. X   0x00, 0x06, 0x00, 0x03, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x00, 0x00,
  406. X   0x00, 0x00, 0x80, 0x01, 0x80, 0x01, 0x00, 0x00};
  407. SHAR_EOF
  408. chmod 0644 qup.xbm ||
  409. echo 'restore of qup.xbm failed'
  410. Wc_c="`wc -c < 'qup.xbm'`"
  411. test 312 -eq "$Wc_c" ||
  412.     echo 'qup.xbm: original size 312, current size' "$Wc_c"
  413. rm -f _shar_wnt_.tmp
  414. fi
  415. # ============= qupm.xbm ==============
  416. if test -f 'qupm.xbm' -a X"$1" != X"-c"; then
  417.     echo 'x - skipping qupm.xbm (File already exists)'
  418.     rm -f _shar_wnt_.tmp
  419. else
  420. > _shar_wnt_.tmp
  421. echo 'x - extracting qupm.xbm (Text)'
  422. sed 's/^X//' << 'SHAR_EOF' > 'qupm.xbm' &&
  423. #define qupmask_width 16
  424. #define qupmask_height 16
  425. static char qupmask_bits[] = {
  426. X   0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f, 0x7c, 0x1f, 0x3c, 0x1e, 0x3c, 0x1f,
  427. X   0xbc, 0x1f, 0xc0, 0x0f, 0xc0, 0x07, 0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03,
  428. X   0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03, 0xc0, 0x03};
  429. SHAR_EOF
  430. chmod 0644 qupm.xbm ||
  431. echo 'restore of qupm.xbm failed'
  432. Wc_c="`wc -c < 'qupm.xbm'`"
  433. test 284 -eq "$Wc_c" ||
  434.     echo 'qupm.xbm: original size 284, current size' "$Wc_c"
  435. rm -f _shar_wnt_.tmp
  436. fi
  437. # ============= vier.c ==============
  438. if test -f 'vier.c' -a X"$1" != X"-c"; then
  439.     echo 'x - skipping vier.c (File already exists)'
  440.     rm -f _shar_wnt_.tmp
  441. else
  442. > _shar_wnt_.tmp
  443. echo 'x - extracting vier.c (Text)'
  444. sed 's/^X//' << 'SHAR_EOF' > 'vier.c' &&
  445. #include <stdio.h>
  446. #include <sys/types.h>
  447. #include <sys/time.h>
  448. X
  449. time_t time();
  450. X
  451. #include "vier.h"
  452. #include "xvier.h"
  453. X
  454. int rows, columns, vnum;
  455. int row_col, row_1_col, row_2_col;
  456. int *brett, *weiss, *schwarz, **freip, **doublesp;
  457. int frei[MAXRC], reihenfolge[MAXRC], doubles[MAXRC];
  458. int (*pu)[4];
  459. int *_p_h_, **pp;
  460. struct oldv *stack, *sp, **zugstack;
  461. int bewertung = 0;
  462. X
  463. int zugstackp = 0, level = 2;
  464. X
  465. #define WEISS    1
  466. #define SCHWARZ  2
  467. #define W_WINS   4
  468. #define S_WINS   8
  469. #define USELESS 16
  470. X
  471. char read_char(ch)
  472. char *ch;
  473. {
  474. X  if (read(0, ch, 1) < 1) {
  475. X    perror("xvier_prog read failed");
  476. X    exit(1);
  477. X  }
  478. X  return *ch;
  479. }
  480. X
  481. void write_char(ch)
  482. char ch;
  483. {
  484. X  if (write(1, &ch, 1) < 1) {
  485. X    perror("xvier_prog write failed");
  486. X    exit(1);
  487. X  }
  488. }
  489. X
  490. void w_test(pos)
  491. int pos;
  492. {
  493. X  register int *p, j;
  494. X  int oben;
  495. X
  496. X  /* leere Position suchen */
  497. X  for (p = pu[pos]; brett[*p] & (WEISS | SCHWARZ); p++);
  498. X  if (brett[j = *p] & (W_WINS | USELESS))
  499. X    return;
  500. X  sp -> pos = brett + j;
  501. X  sp++ -> value = brett[j];
  502. X  brett[j] |= W_WINS;
  503. X  if (*doublesp[j] == SCHWARZ &&
  504. X      j > *freip[j] &&
  505. X      j < row_1_col &&
  506. X      !(brett[j+columns] & USELESS)) {
  507. X    sp -> pos = doublesp[j];
  508. X    sp++ -> value = SCHWARZ;
  509. X    *doublesp[j] = 0;
  510. X  }
  511. X  if (!*doublesp[j] &&
  512. X      ((j > *freip[j] + columns &&
  513. X    (brett[(oben = j) - columns] & W_WINS)) ||
  514. X       (j > *freip[j] && j < row_1_col &&
  515. X    (brett[oben = j + columns] & W_WINS)))) {
  516. X    register int k;
  517. X
  518. X    for (k = *freip[j]; k < oben; k += columns)
  519. X      if (brett[k] & S_WINS)
  520. X    goto no_double;
  521. X    sp -> pos = doublesp[j];
  522. X    sp++ -> value = 0;
  523. X    *doublesp[j] = WEISS;
  524. X  }
  525. X no_double:
  526. X  if (j < row_1_col &&
  527. X      ((brett[oben = j] & S_WINS) ||
  528. X       (j > *freip[j] && (brett[j - columns] & W_WINS)) ||
  529. X       (j < row_2_col &&
  530. X    (brett[oben = j + columns] & W_WINS))))
  531. X    for (j = oben + columns;
  532. X     j < row_col && !(brett[j] & USELESS);
  533. X     j += columns) {
  534. X      register int h1, h2;
  535. X
  536. X      /* Vierer darueber sind nutzlos */
  537. X      sp -> pos = brett + j;
  538. X      sp++ -> value = brett[j];
  539. X      brett[j] |= USELESS;
  540. X      p = pp[j];
  541. X      while ((h1 = *(p++)) >= 0) {
  542. X    if ((h2 = weiss[h1]) >= 0) {
  543. X      sp -> pos = &weiss[h1];
  544. X      sp++ -> value = h2;
  545. X      weiss[h1] = -1;
  546. X      bewertung -= h2;
  547. X    }
  548. X    if ((h2 = schwarz[h1]) >= 0) {
  549. X      sp -> pos = &schwarz[h1];
  550. X      sp++ -> value = h2;
  551. X      schwarz[h1] = -1;
  552. X      bewertung += h2;
  553. X    }
  554. X      }
  555. X    }
  556. }
  557. X 
  558. void s_test(pos)
  559. int pos;
  560. {
  561. X  register int *p, j;
  562. X  int oben;
  563. X
  564. X  /* leere Position suchen */
  565. X  for (p = pu[pos]; brett[*p] & (WEISS | SCHWARZ); p++);
  566. X  if (brett[j = *p] & (S_WINS | USELESS))
  567. X    return;
  568. X  sp -> pos = brett + j;
  569. X  sp++ -> value = brett[j];
  570. X  brett[j] |= S_WINS;
  571. X  if (*doublesp[j] == WEISS &&
  572. X      j > *freip[j] &&
  573. X      j < row_1_col &&
  574. X      !(brett[j+columns] & USELESS)) {
  575. X    sp -> pos = doublesp[j];
  576. X    sp++ -> value = WEISS;
  577. X    *doublesp[j] = 0;
  578. X  }
  579. X  if (!*doublesp[j] &&
  580. X      ((j > *freip[j] + columns &&
  581. X    (brett[(oben = j) - columns] & S_WINS)) ||
  582. X       (j > *freip[j] && j < row_1_col &&
  583. X    (brett[oben = j + columns] & S_WINS)))) {
  584. X    register int k;
  585. X
  586. X    for (k = *freip[j]; k < oben; k += columns)
  587. X      if (brett[k] & W_WINS)
  588. X    goto no_double;
  589. X    sp -> pos = doublesp[j];
  590. X    sp++ -> value = 0;
  591. X    *doublesp[j] = SCHWARZ;
  592. X  }
  593. X no_double:
  594. X  if (j < row_1_col &&
  595. X      ((brett[oben = j] & W_WINS) ||
  596. X       (j > *freip[j] && (brett[j - columns] & S_WINS)) ||
  597. X       (j < row_2_col &&
  598. X    (brett[oben = j + columns] & S_WINS))))
  599. X    for (j = oben + columns;
  600. X     j < row_col && !(brett[j] & USELESS);
  601. X     j += columns) {
  602. X      register int h1, h2;
  603. X
  604. X      /* Vierer darueber sind nutzlos */
  605. X      sp -> pos = brett + j;
  606. X      sp++ -> value = brett[j];
  607. X      brett[j] |= USELESS;
  608. X      p = pp[j];
  609. X      while ((h1 = *(p++)) >= 0) {
  610. X    if ((h2 = weiss[h1]) >= 0) {
  611. X      sp -> pos = &weiss[h1];
  612. X      sp++ -> value = h2;
  613. X      weiss[h1] = -1;
  614. X      bewertung -= h2;
  615. X    }
  616. X    if ((h2 = schwarz[h1]) >= 0) {
  617. X      sp -> pos = &schwarz[h1];
  618. X      sp++ -> value = h2;
  619. X      schwarz[h1] = -1;
  620. X      bewertung += h2;
  621. X    }
  622. X      }
  623. X    }
  624. }
  625. X
  626. int w_zugzwang(remain)
  627. int remain;
  628. {
  629. X  register int i, pos, poslev = 7, p_s_p = 0;
  630. X  int p_stack[MAXRC];
  631. X
  632. X  for (i = 0; i < columns; i++) {
  633. X    register int f = frei[i];
  634. X
  635. X    if (f < row_col) {
  636. X      if (brett[f] & W_WINS)
  637. X    return 8 + 8 * remain;
  638. X      if (brett[f] & S_WINS) {
  639. X    pos = i;
  640. X    poslev = 1;
  641. X      } else if (poslev > 2) {
  642. X    if (doubles[i] == WEISS) {
  643. X      pos = i;
  644. X      poslev = 2;
  645. X    } else if (poslev > 3) {
  646. X      if (f >= row_1_col ||
  647. X          ((brett[f + columns] & (W_WINS | S_WINS)) == 0 &&
  648. X           !doubles[i])) {
  649. X        pos = i;
  650. X        poslev = 3;
  651. X      } else if (poslev > 4) {
  652. X        if ((brett[f + columns] & (W_WINS | S_WINS)) == 0) {
  653. X          pos = i;
  654. X          poslev = 4;
  655. X        } else if ((brett[f + columns] & S_WINS) == 0) {
  656. X          p_stack[p_s_p++] = pos = i;
  657. X          poslev = 5;
  658. X        } else if (poslev > 6) {
  659. X          pos = i;
  660. X          poslev = 6;
  661. X        }
  662. X      }
  663. X    }
  664. X      }
  665. X    }
  666. X  }
  667. X  if (poslev == 7)
  668. X    return 0;
  669. X  if (poslev == 5 && p_s_p > 1) {
  670. X    int m;
  671. X
  672. X    frei[p_stack[0]] += columns;
  673. X    m = s_zugzwang(remain-1);
  674. X    frei[p_stack[0]] -= columns;
  675. X    for (i = 1; i < p_s_p; i++) {
  676. X      register int tmp;
  677. X
  678. X      frei[p_stack[i]] += columns;
  679. X      if ((tmp = s_zugzwang(remain-1)) > m)
  680. X    m = tmp;
  681. X      frei[p_stack[i]] -= columns;
  682. X    }
  683. X    return m;
  684. X  } else {
  685. X    frei[pos] += columns;
  686. X    i = s_zugzwang(remain-1);
  687. X    frei[pos] -= columns;
  688. X    return i;
  689. X  }
  690. }
  691. X
  692. int s_zugzwang(remain)
  693. int remain;
  694. {
  695. X  register int i, pos, poslev = 7, p_s_p = 0;
  696. X  int p_stack[MAXRC];
  697. X
  698. X  for (i = 0; i < columns; i++) {
  699. X    register int f = frei[i];
  700. X
  701. X    if (f < row_col) {
  702. X      if (brett[f] & S_WINS)
  703. X    return -8 - 8 * remain;
  704. X      if (brett[f] & W_WINS) {
  705. X    pos = i;
  706. X    poslev = 1;
  707. X      } else if (poslev > 2) {
  708. X    if (doubles[i] == SCHWARZ) {
  709. X      pos = i;
  710. X      poslev = 2;
  711. X    } else if (poslev > 3) {
  712. X      if (f >= row_1_col ||
  713. X          ((brett[f + columns] & (W_WINS | S_WINS)) == 0 &&
  714. X           !doubles[i])) {
  715. X        pos = i;
  716. X        poslev = 3;
  717. X      } else if (poslev > 4) {
  718. X        if ((brett[f + columns] & (W_WINS | S_WINS)) == 0) {
  719. X          pos = i;
  720. X          poslev = 4;
  721. X        } else if ((brett[f + columns] & W_WINS) == 0) {
  722. X          p_stack[p_s_p++] = pos = i;
  723. X          poslev = 5;
  724. X        } else if (poslev > 6) {
  725. X          pos = i;
  726. X          poslev = 6;
  727. X        }
  728. X      }
  729. X    }
  730. X      }
  731. X    }
  732. X  }
  733. X  if (poslev == 7)
  734. X    return 0;
  735. X  if (poslev == 5 && p_s_p > 1) {
  736. X    int m;
  737. X
  738. X    frei[p_stack[0]] += columns;
  739. X    m = w_zugzwang(remain-1);
  740. X    frei[p_stack[0]] -= columns;
  741. X    for (i = 1; i < p_s_p; i++) {
  742. X      register int tmp;
  743. X
  744. X      frei[p_stack[i]] += columns;
  745. X      if ((tmp = w_zugzwang(remain-1)) < m)
  746. X    m = tmp;
  747. X      frei[p_stack[i]] -= columns;
  748. X    }
  749. X    return m;
  750. X  } else {
  751. X    frei[pos] += columns;
  752. X    i = w_zugzwang(remain-1);
  753. X    frei[pos] -= columns;
  754. X    return i;
  755. X  }
  756. }
  757. X
  758. int comp_weiss(pos, lev, limit)
  759. int pos, lev, limit;
  760. {
  761. X  register int  h1, h2, i, j, *p;
  762. X  int   *frp, wert;
  763. X  struct oldv *sold;
  764. X
  765. X  if (brett[pos] & W_WINS)
  766. X    return 50000 - lev;
  767. X  /* Zug fuer Weiss ausfuehren */
  768. X  sold = sp;
  769. X  sp -> pos = frp = freip[pos];
  770. X  sp++ -> value = *frp;
  771. X  sp -> pos = brett + pos;
  772. X  sp++ -> value = brett[pos];
  773. X  sp -> pos = &bewertung;
  774. X  sp++ -> value = bewertung;
  775. X  *frp += columns;
  776. X  brett[pos] |= WEISS;
  777. X  p = pp[pos];
  778. X  while ((h1 = *(p++)) >= 0) {
  779. X    if ((h2 = weiss[h1]) >= 0) {
  780. X      sp -> pos = &weiss[h1];
  781. X      sp++ -> value = h2;
  782. X      weiss[h1]++;
  783. X      bewertung++;
  784. X      if (h2 == 3)
  785. X    w_test (h1);
  786. X    }
  787. X    if ((h2 = schwarz[h1]) >= 0) {
  788. X      sp -> pos = &schwarz[h1];
  789. X      sp++ -> value = h2;
  790. X      schwarz[h1] = -1;
  791. X      bewertung += h2;
  792. X    }
  793. X  }
  794. X  h1 = -1;
  795. X  for (i = 0; i < columns; i++) {
  796. X    register int f = frei[i];
  797. X
  798. X    if (f < row_col) {
  799. X      if (brett[f] & S_WINS) {
  800. X    wert = -49999 + lev;
  801. X    goto end;
  802. X      }
  803. X      if (brett[f] & W_WINS)
  804. X    h1 = f;
  805. X    }
  806. X  }
  807. X  if (h1 >= 0) {
  808. X    level++;
  809. X    wert = comp_schwarz(h1, lev + 1, 100000);
  810. X    level--;
  811. X  } else if (lev >= level)
  812. X    wert = bewertung + s_zugzwang(40 - lev - zugstackp);
  813. X  else {
  814. X    register int    zw;
  815. X
  816. X    wert = 100000;
  817. X    for (i = 0; i < columns; i++) {
  818. X      j = frei[reihenfolge[i]];
  819. X      if (j < row_col)
  820. X    if ((zw = comp_schwarz (j, lev + 1, wert)) < wert)
  821. X      if ((wert = zw) <= limit)
  822. X        break;
  823. X      /* Schwarz wird wohl den fuer ihn guenstigsten Zug auswaehlen */
  824. X    }
  825. X    if (wert == 100000)
  826. X      wert = 0;        /* unentschieden */
  827. X  }
  828. X end:
  829. X  while (sp != sold) {
  830. X    sp--;
  831. X    *(sp -> pos) = sp -> value;
  832. X  }
  833. X  return (wert);
  834. }
  835. X
  836. int comp_schwarz(pos, lev, limit)
  837. int pos, lev, limit;
  838. {
  839. X  register int  h1, h2, i, j, *p;
  840. X  int   *frp, wert;
  841. X  struct oldv *sold;
  842. X
  843. X  if (brett[pos] & S_WINS)
  844. X    return -50000 + lev;
  845. X  /* Zug fuer Schwarz ausfuehren */
  846. X  sold = sp;
  847. X  sp -> pos = frp = freip[pos];
  848. X  sp++ -> value = *frp;
  849. X  sp -> pos = brett + pos;
  850. X  sp++ -> value = brett[pos];
  851. X  sp -> pos = &bewertung;
  852. X  sp++ -> value = bewertung;
  853. X  *frp += columns;
  854. X  brett[pos] |= SCHWARZ;
  855. X  p = pp[pos];
  856. X  while ((h1 = *(p++)) >= 0) {
  857. X    if ((h2 = schwarz[h1]) >= 0) {
  858. X      sp -> pos = &schwarz[h1];
  859. X      sp++ -> value = h2;
  860. X      schwarz[h1]++;
  861. X      bewertung--;
  862. X      if (h2 == 3)
  863. X    s_test (h1);
  864. X    }
  865. X    if ((h2 = weiss[h1]) >= 0) {
  866. X      sp -> pos = &weiss[h1];
  867. X      sp++ -> value = h2;
  868. X      weiss[h1] = -1;
  869. X      bewertung -= h2;
  870. X    }
  871. X  }
  872. X  h1 = -1;
  873. X  for (i = 0; i < columns; i++) {
  874. X    register int f = frei[i];
  875. X
  876. X    if (f < row_col) {
  877. X      if (brett[f] & W_WINS) {
  878. X    wert = 49999 - lev;
  879. X    goto end;
  880. X      }
  881. X      if (brett[f] & S_WINS)
  882. X    h1 = f;
  883. X    }
  884. X  }
  885. X  if (h1 >= 0) {
  886. X    level++;
  887. X    wert = comp_weiss(h1, lev + 1, -100000);
  888. X    level--;
  889. X  } else if (lev >= level)
  890. X    wert = bewertung + w_zugzwang(40 - lev - zugstackp);
  891. X  else {
  892. X    register int    zw;
  893. X
  894. X    wert = -100000;
  895. X    for (i = 0; i < columns; i++) {
  896. X      j = frei[reihenfolge[i]];
  897. X      if (j < row_col)
  898. X    if ((zw = comp_weiss (j, lev + 1, wert)) > wert)
  899. X      if ((wert = zw) >= limit)
  900. X        break;
  901. X    }
  902. X    if (wert == -100000)
  903. X      wert = 0;        /* unentschieden */
  904. X  }
  905. X end:
  906. X  while (sp != sold) {
  907. X    sp--;
  908. X    *(sp -> pos) = sp -> value;
  909. X  }
  910. X  return (wert);
  911. }
  912. X
  913. int main(argc, argv)
  914. int argc;
  915. char **argv;
  916. {
  917. X  int  i, j, h1, zj, *p, wert, zi;
  918. X  char ch, buf[10];
  919. X  int  same[MAXRC], same_n;
  920. X
  921. X  if (argc != 3 ||
  922. X      (rows = atoi(argv[1])) < 4 || rows > MAXRC ||
  923. X      (columns = atoi(argv[2])) < 4 || columns > MAXRC) {
  924. X    fprintf(stderr, "Usage: %s <rows> <columns>\n", *argv);
  925. X    exit(1);
  926. X  }
  927. X  vierinit();
  928. X  sprintf(buf, "%dR%dC", rows, columns);
  929. X  for (i = 0; buf[i] != '\0'; i++)
  930. X    write_char(buf[i]);
  931. X  srand((int) time(NULL));
  932. X  while (1) {
  933. X  mensch:
  934. X    read_char(&ch);
  935. X    switch (ch) {
  936. X    case '0': case '1': case '2': case '3': case '4':
  937. X    case '5': case '6': case '7': case '8': case '9':
  938. X      write_char(ch);
  939. X      level = ch - '0' + 2;
  940. X      break;
  941. X    case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g':
  942. X    case 'h': case 'i': case 'j': case 'k': case 'l': case 'm':
  943. X      if (ch - 'a' >= columns ||
  944. X      (j = frei[ch - 'a']) >= row_col) {
  945. X    write_char('x');
  946. X    break;
  947. X      }
  948. X      if (brett[j] & W_WINS) {
  949. X    write_char('w');
  950. X    while (read_char(&ch) != 'u')
  951. X      switch (ch) {
  952. X      case '0': case '1': case '2': case '3': case '4':
  953. X      case '5': case '6': case '7': case '8': case '9':
  954. X        write_char(ch);
  955. X        level = ch - '0' + 2;
  956. X        break;
  957. X      case 'n':
  958. X        goto newgame;
  959. X      default:
  960. X        write_char('x');
  961. X        break;
  962. X      }
  963. X    write_char('v');
  964. X    break;
  965. X      }
  966. X      zugstack[zugstackp++] = sp;
  967. X      sp -> pos = brett + j;
  968. X      sp++ -> value = brett[j];
  969. X      sp -> pos = frei + ch - 'a';
  970. X      sp++ -> value = frei[ch - 'a'];
  971. X      sp -> pos = &bewertung;
  972. X      sp++ -> value = bewertung;
  973. X      brett[j] |= WEISS;
  974. X      frei[ch - 'a'] += columns;
  975. X      p = pp[j];
  976. X      while ((h1 = *(p++)) >= 0) {
  977. X    if ((weiss[h1]) >= 0) {
  978. X      sp -> pos = weiss + h1;
  979. X      sp++ -> value = weiss[h1];
  980. X      weiss[h1]++;
  981. X      bewertung++;
  982. X      if (weiss[h1] == 4)
  983. X        w_test(h1);
  984. X    }
  985. X    if ((schwarz[h1]) >= 0) {
  986. X      sp -> pos = schwarz + h1;
  987. X      sp++ -> value = schwarz[h1];
  988. X      bewertung += schwarz[h1];
  989. X      schwarz[h1] = -1;
  990. X    }
  991. X      }
  992. X    computer:
  993. X      same_n = 0;
  994. X      for (i = 0; i < columns; i++) {
  995. X    int f = frei[i];
  996. X    
  997. X    if (f < row_col) {
  998. X      if (brett[f] & S_WINS) {
  999. X        zi = i;
  1000. X        goto calculate_end;
  1001. X      }
  1002. X      if (brett[f] & W_WINS)
  1003. X        same[same_n++] = i;
  1004. X    }
  1005. X      }
  1006. X      if (same_n == 0) {
  1007. X    wert = 100000;
  1008. X    for (i = 0; i < columns; i++) {
  1009. X      register int zw;
  1010. X      
  1011. X      if ((j = frei[reihenfolge[i]]) < row_col)
  1012. X        if ((zw = comp_schwarz (j, 0, wert + 1)) < wert) {
  1013. X          wert = zw;
  1014. X          same_n = 1;
  1015. X          same[0] = reihenfolge[i];
  1016. X        } else if (zw == wert)
  1017. X          same[same_n++] = reihenfolge[i];
  1018. X    }
  1019. X      }
  1020. X      if (same_n == 0) {
  1021. X    write_char('z');
  1022. X    while (read_char(&ch) != 'u')
  1023. X      switch (ch) {
  1024. X      case '0': case '1': case '2': case '3': case '4':
  1025. X      case '5': case '6': case '7': case '8': case '9':
  1026. X        write_char(ch);
  1027. X        level = ch - '0' + 2;
  1028. X        break;
  1029. X      case 'n':
  1030. X        goto newgame;
  1031. X      default:
  1032. X        write_char('x');
  1033. X        break;
  1034. X      }
  1035. X    write_char('v');
  1036. X    zugstackp--;
  1037. X    while (sp != zugstack[zugstackp]) {
  1038. X      sp--;
  1039. X      *(sp -> pos) = sp -> value;
  1040. X    }
  1041. X    break;
  1042. X      }
  1043. X      if (same_n == 1)
  1044. X    zi = same[0];
  1045. X      else
  1046. X    zi = same[rand() % same_n];
  1047. X    calculate_end:
  1048. X      zj = frei[zi];
  1049. X      if (brett[zj] & S_WINS) {
  1050. X    write_char('A' + zi);
  1051. X    while (read_char(&ch) != 'u')
  1052. X      switch (ch) {
  1053. X      case '0': case '1': case '2': case '3': case '4':
  1054. X      case '5': case '6': case '7': case '8': case '9':
  1055. X        write_char(ch);
  1056. X        level = ch - '0' + 2;
  1057. X        break;
  1058. X      case 'n':
  1059. X        goto newgame;
  1060. X      default:
  1061. X        write_char('x');
  1062. X        break;
  1063. X      }
  1064. X    write_char('u');
  1065. X    zugstackp--;
  1066. X    while (sp != zugstack[zugstackp]) {
  1067. X      sp--;
  1068. X      *(sp -> pos) = sp -> value;
  1069. X    }
  1070. X    break;
  1071. X      }
  1072. X      zugstack[zugstackp++] = sp;
  1073. X      sp -> pos = brett + zj;
  1074. X      sp++ -> value = brett[zj];
  1075. X      sp -> pos = frei + zi;
  1076. X      sp++ -> value = zj;
  1077. X      sp -> pos = &bewertung;
  1078. X      sp++ -> value = bewertung;
  1079. X      brett[zj] |= SCHWARZ;
  1080. X      frei[zi] += columns;
  1081. X      p = pp[zj];
  1082. X      while ((h1 = *(p++)) >= 0) {
  1083. X    if ((schwarz[h1]) >= 0) {
  1084. X      sp -> pos = schwarz + h1;
  1085. X      sp++ -> value = schwarz[h1];
  1086. X      schwarz[h1]++;
  1087. X      bewertung--;
  1088. X      if (schwarz[h1] == 4)
  1089. X        s_test(h1);
  1090. X    }
  1091. X    if ((weiss[h1]) >= 0) {
  1092. X      sp -> pos = weiss + h1;
  1093. X      sp++ -> value = weiss[h1];
  1094. X      bewertung -= weiss[h1];
  1095. X      weiss[h1] = -1;
  1096. X    }
  1097. X      }
  1098. X      if (frei[zi] < row_col && (brett[frei[zi]] & USELESS)) {
  1099. X    /* user didn't recognize a double */
  1100. X    for (i = frei[zi]; i < row_col; i+= columns) {
  1101. X      int w_wins = 0, s_wins = 0;
  1102. X
  1103. X      sp -> pos = brett + i;
  1104. X      sp++ -> value = brett[i];
  1105. X      brett[i] = 0;
  1106. X      p = pp[i];
  1107. X      while ((h1 = *(p++)) >= 0) {
  1108. X        int wval = 1, sval = 1;
  1109. X
  1110. X        for (j = 0; j < 4; j++) {
  1111. X          if (brett[pu[h1][j]] & USELESS) {
  1112. X        wval = -1;
  1113. X        sval = -1;
  1114. X          } else if (brett[pu[h1][j]] & WEISS) {
  1115. X        if (wval > 0)
  1116. X          wval++;
  1117. X          } else if (brett[pu[h1][j]] & SCHWARZ) {
  1118. X        if (sval > 0)
  1119. X          sval++;
  1120. X          }
  1121. X        }
  1122. X        if (wval > 0) {
  1123. X          bewertung += wval;
  1124. X          sp -> pos = weiss + h1;
  1125. X          sp++ -> value = weiss[h1];
  1126. X          weiss[h1] = wval;
  1127. X          if (wval == 4)
  1128. X        w_wins = 1;
  1129. X        }
  1130. X        if (sval > 0) {
  1131. X          bewertung -= sval;
  1132. X          sp -> pos = schwarz + h1;
  1133. X          sp++ -> value = schwarz[h1];
  1134. X          schwarz[h1] = sval;
  1135. X          if (sval == 4)
  1136. X        s_wins = 1;
  1137. X        }
  1138. X      }
  1139. X      if (w_wins && s_wins) {
  1140. X        brett[i] |= (W_WINS | S_WINS);
  1141. X        if (i > frei[zi] + columns) {
  1142. X          if (brett[i - columns] & W_WINS) {
  1143. X        if (*doublesp[i] != WEISS) {
  1144. X          sp -> pos = doublesp[i];
  1145. X          sp++ -> value = *doublesp[i];
  1146. X          *doublesp[i] = WEISS;
  1147. X        }
  1148. X          } else if (brett[i - columns] & S_WINS) {
  1149. X        if (*doublesp[i] != SCHWARZ) {
  1150. X          sp -> pos = doublesp[i];
  1151. X          sp++ -> value = *doublesp[i];
  1152. X          *doublesp[i] = SCHWARZ;
  1153. X        }
  1154. X          }
  1155. X        }
  1156. X        break;
  1157. X      } else if (w_wins) {
  1158. X        brett[i] |= W_WINS;
  1159. X        if (i > frei[zi] + columns && (brett[i - columns] & W_WINS)) {
  1160. X          if (*doublesp[i] != WEISS) {
  1161. X        sp -> pos = doublesp[i];
  1162. X        sp++ -> value = *doublesp[i];
  1163. X        *doublesp[i] = WEISS;
  1164. X          }
  1165. X          break;
  1166. X        }
  1167. X      } else if (s_wins) {
  1168. X        brett[i] |= S_WINS;
  1169. X        if (i > frei[zi] + columns  && (brett[i - columns] & S_WINS)) {
  1170. X          if (*doublesp[i] != SCHWARZ) {
  1171. X        sp -> pos = doublesp[i];
  1172. X        sp++ -> value = *doublesp[i];
  1173. X        *doublesp[i] = SCHWARZ;
  1174. X          }
  1175. X          break;
  1176. X        }
  1177. X      }
  1178. X    }
  1179. X      }
  1180. X      for (i = 0; i < columns; i++)
  1181. X    if (frei[i] < row_col) {
  1182. X      write_char('a' + zi);
  1183. X      goto mensch;
  1184. X    }
  1185. X      /* unentschieden */
  1186. X      write_char('N' + zi);
  1187. X      while (read_char(&ch) != 'u')
  1188. X    switch (ch) {
  1189. X    case '0': case '1': case '2': case '3': case '4':
  1190. X    case '5': case '6': case '7': case '8': case '9':
  1191. X      write_char(ch);
  1192. X      level = ch - '0' + 2;
  1193. X      break;
  1194. X    case 'n':
  1195. X      goto newgame;
  1196. X    default:
  1197. X      write_char('x');
  1198. X      break;
  1199. X    }
  1200. X      write_char('u');
  1201. X      zugstackp -= 2;
  1202. X      while (sp != zugstack[zugstackp]) {
  1203. X    sp--;
  1204. X    *(sp -> pos) = sp -> value;
  1205. X      }
  1206. X      break;
  1207. X    case 'n':
  1208. X    newgame:
  1209. X      write_char('n');
  1210. X      zugstackp = 0;
  1211. X      while (sp != stack) {
  1212. X    sp--;
  1213. X    *(sp -> pos) = sp -> value;
  1214. X      }
  1215. X      break;
  1216. X    case 'u':
  1217. X      if (zugstackp < 2)
  1218. X    goto newgame;
  1219. X      write_char('u');
  1220. X      zugstackp -= 2;
  1221. X      while (sp != zugstack[zugstackp]) {
  1222. X    sp--;
  1223. X    *(sp -> pos) = sp -> value;
  1224. X      }
  1225. X      break;
  1226. X    case 's':
  1227. X      if (zugstackp == 0)
  1228. X    goto computer;
  1229. X      /* else fall through */
  1230. X    default:
  1231. X      write_char('x');
  1232. X      break;
  1233. X    }
  1234. X  }
  1235. }
  1236. SHAR_EOF
  1237. chmod 0644 vier.c ||
  1238. echo 'restore of vier.c failed'
  1239. Wc_c="`wc -c < 'vier.c'`"
  1240. test 17343 -eq "$Wc_c" ||
  1241.     echo 'vier.c: original size 17343, current size' "$Wc_c"
  1242. rm -f _shar_wnt_.tmp
  1243. fi
  1244. # ============= vier.h ==============
  1245. if test -f 'vier.h' -a X"$1" != X"-c"; then
  1246.     echo 'x - skipping vier.h (File already exists)'
  1247.     rm -f _shar_wnt_.tmp
  1248. else
  1249. > _shar_wnt_.tmp
  1250. echo 'x - extracting vier.h (Text)'
  1251. sed 's/^X//' << 'SHAR_EOF' > 'vier.h' &&
  1252. char *malloc();
  1253. X
  1254. extern int rows, columns, vnum;
  1255. extern int row_col, row_1_col, row_2_col;
  1256. extern int *brett, *weiss, *schwarz, **freip, **doublesp;
  1257. extern int frei[], reihenfolge[], doubles[];
  1258. extern int (*pu)[4];
  1259. extern int *_p_h_, **pp;
  1260. extern struct oldv {
  1261. X  int *pos, value;
  1262. } *stack, *sp, **zugstack;
  1263. SHAR_EOF
  1264. chmod 0644 vier.h ||
  1265. echo 'restore of vier.h failed'
  1266. Wc_c="`wc -c < 'vier.h'`"
  1267. test 307 -eq "$Wc_c" ||
  1268.     echo 'vier.h: original size 307, current size' "$Wc_c"
  1269. rm -f _shar_wnt_.tmp
  1270. fi
  1271. # ============= vierinit.c ==============
  1272. if test -f 'vierinit.c' -a X"$1" != X"-c"; then
  1273.     echo 'x - skipping vierinit.c (File already exists)'
  1274.     rm -f _shar_wnt_.tmp
  1275. else
  1276. > _shar_wnt_.tmp
  1277. echo 'x - extracting vierinit.c (Text)'
  1278. sed 's/^X//' << 'SHAR_EOF' > 'vierinit.c' &&
  1279. #include <stdio.h>
  1280. X
  1281. #include "xvier.h"
  1282. #include "vier.h"
  1283. X
  1284. void vierinit()
  1285. {
  1286. X  int i, j, pui;
  1287. X
  1288. X  vnum = rows * (columns - 3) + columns * (rows - 3) +
  1289. X    2 * (columns - 3) * (rows - 3);
  1290. X  row_col = rows * columns;
  1291. X  row_1_col = row_col - columns;
  1292. X  row_2_col = row_1_col - columns;
  1293. X  brett = (int *)malloc(row_col * sizeof(int));
  1294. X  for (i = 0; i < (row_col); i++)
  1295. X    brett[i] = 0;
  1296. X  weiss = (int *)malloc(vnum * sizeof(int));
  1297. X  schwarz = (int *)malloc(vnum * sizeof(int));
  1298. X  for (i = 0; i < vnum; i++)
  1299. X    weiss[i] = schwarz[i] = 1;
  1300. X  for (i = 0; i < columns; i++) {
  1301. X    frei[i] = i;
  1302. X    doubles[i] = 0;
  1303. X  }
  1304. X  freip = (int **)malloc(row_col * sizeof(int *));
  1305. X  for (j = 0; j < rows; j++)
  1306. X    for (i = 0; i < columns; i++)
  1307. X      freip[j * columns + i] = frei + i;
  1308. X  doublesp = (int **)malloc(row_col * sizeof(int *));
  1309. X  for (j = 0; j < rows; j++)
  1310. X    for (i = 0; i < columns; i++)
  1311. X      doublesp[j * columns + i] = doubles + i;
  1312. X  j = 0;
  1313. X  i = ((columns - 1) >> 1);
  1314. X  if (columns & 1)
  1315. X    reihenfolge[j++] = i;
  1316. X  else {
  1317. X    reihenfolge[j++] = i;
  1318. X    reihenfolge[j++] = i + 1;
  1319. X  }
  1320. X  for (i--; i >= 0; i--) {
  1321. X    reihenfolge[j++] = i;
  1322. X    reihenfolge[j++] = columns - 1 - i;
  1323. X  }
  1324. X  pu = (int (*)[4])malloc(vnum * sizeof(*pu));
  1325. X  pui = 0;
  1326. X  for (i = (rows - 1) * columns; i >= 0; i -= columns)
  1327. X    for (j = 0; j <= columns - 4; j++) {
  1328. X      pu[pui][0] = i + j;
  1329. X      pu[pui][1] = i + j + 1;
  1330. X      pu[pui][2] = i + j + 2;
  1331. X      pu[pui][3] = i + j + 3;
  1332. X      pui++;
  1333. X    }
  1334. X  for (i = (rows - 4) * columns; i >= 0; i -= columns)
  1335. X    for (j = 0; j < columns; j++) {
  1336. X      pu[pui][0] = i + j;
  1337. X      pu[pui][1] = i + j + columns;
  1338. X      pu[pui][2] = i + j + 2 * columns;
  1339. X      pu[pui][3] = i + j + 3 * columns;
  1340. X      pui++;
  1341. X    }
  1342. X  for (i = (rows - 4) * columns; i >= 0; i -= columns)
  1343. X    for (j = 3; j < columns; j++) {
  1344. X      pu[pui][0] = i + j;
  1345. X      pu[pui][1] = i + j + columns - 1;
  1346. X      pu[pui][2] = i + j + 2 * (columns - 1);
  1347. X      pu[pui][3] = i + j + 3 * (columns - 1);
  1348. X      pui++;
  1349. X    }
  1350. X  for (i = (rows - 4) * columns; i >= 0; i -= columns)
  1351. X    for (j = 0; j <= columns - 4; j++) {
  1352. X      pu[pui][0] = i + j;
  1353. X      pu[pui][1] = i + j + columns + 1;
  1354. X      pu[pui][2] = i + j + 2 * (columns + 1);
  1355. X      pu[pui][3] = i + j + 3 * (columns + 1);
  1356. X      pui++;
  1357. X    }
  1358. X  _p_h_ = (int *)malloc((row_col + 4 * vnum) * sizeof(int));
  1359. X  pp = (int **)malloc(row_col * sizeof(int));
  1360. X  for (pui = i = 0; i < row_col; i++) {
  1361. X    pp[i] = _p_h_ + pui;
  1362. X    for (j = 0; j < vnum; j++)
  1363. X      if (pu[j][0] == i || pu[j][1] == i || pu[j][2] == i || pu[j][3] == i)
  1364. X    _p_h_[pui++] = j;
  1365. X    _p_h_[pui++] = -1;
  1366. X  }
  1367. X  sp = stack = (struct oldv *)
  1368. X    malloc(4 * (vnum + row_col) * sizeof(struct oldv));
  1369. X  zugstack = (struct oldv **)malloc(row_col * sizeof(struct oldv *));
  1370. }
  1371. SHAR_EOF
  1372. chmod 0644 vierinit.c ||
  1373. echo 'restore of vierinit.c failed'
  1374. Wc_c="`wc -c < 'vierinit.c'`"
  1375. test 2741 -eq "$Wc_c" ||
  1376.     echo 'vierinit.c: original size 2741, current size' "$Wc_c"
  1377. rm -f _shar_wnt_.tmp
  1378. fi
  1379. # ============= xvier.c ==============
  1380. if test -f 'xvier.c' -a X"$1" != X"-c"; then
  1381.     echo 'x - skipping xvier.c (File already exists)'
  1382.     rm -f _shar_wnt_.tmp
  1383. else
  1384. > _shar_wnt_.tmp
  1385. echo 'x - extracting xvier.c (Text)'
  1386. sed 's/^X//' << 'SHAR_EOF' > 'xvier.c' &&
  1387. #include <X11/Xlib.h>
  1388. #include <X11/Xutil.h>
  1389. #include <X11/cursorfont.h>
  1390. #include <stdio.h>
  1391. #include <signal.h>
  1392. #include <sys/types.h>
  1393. #include <sys/time.h>
  1394. X
  1395. #include "xvier.h"
  1396. X
  1397. char *malloc();
  1398. X
  1399. char *displayname = NULL, *geostring = NULL, *fontpattern = NULL;
  1400. int iconic = 0, level = 0;
  1401. int rows = 6, columns = 7;
  1402. Display *mydisplay;
  1403. int myscreen;
  1404. Window topwindow, boardwindow, quitwindow,
  1405. X       newwindow, undowindow, startwindow, changewindow;
  1406. #define TOPBORDERWIDTH 5
  1407. #define DEFAULTWIDTH    (((10 + 50 * columns) * 5 + 3) / 4)
  1408. #define DEFAULTHEIGHT    (10 + 50 * rows)
  1409. #define MINWIDTH    ((DEFAULTWIDTH * 2) / 5)
  1410. #define MINHEIGHT    ((DEFAULTHEIGHT * 2) / 5)
  1411. #ifndef XVIER_WM_ASPECT_BUG
  1412. #define MINASPECTWIDTH    DEFAULTWIDTH
  1413. #define MINASPECTHEIGHT    (2 * DEFAULTHEIGHT)
  1414. #define MAXASPECTWIDTH    (2 * DEFAULTWIDTH)
  1415. #define MAXASPECTHEIGHT    DEFAULTHEIGHT
  1416. #endif
  1417. GC stonegc[2], buttongc, textgc;
  1418. XXEvent myevent;
  1419. KeySym mykey;
  1420. XXSizeHints myhint;
  1421. XXClassHint myclass;
  1422. XXWMHints *mywmhints;
  1423. unsigned long PixelArray[5];
  1424. #define WHITE  PixelArray[0]
  1425. #define BLACK  PixelArray[1]
  1426. #define BLUE   PixelArray[2]
  1427. #define YELLOW PixelArray[3]
  1428. #define RED    PixelArray[4]
  1429. Colormap cmap;
  1430. int private_cmap = 0;
  1431. Cursor cursor_normal, cursor_q[4];
  1432. #include "qup.xbm"
  1433. #include "qupm.xbm"
  1434. #include "qright.xbm"
  1435. #include "qrightm.xbm"
  1436. #include "qdown.xbm"
  1437. #include "qdownm.xbm"
  1438. #include "qleft.xbm"
  1439. #include "qleftm.xbm"
  1440. Pixmap qup, qupmask, qright, qrightmask, qdown, qdownmask, qleft, qleftmask;
  1441. XXColor cursorforeground, cursorbackground;
  1442. int cursor_num;
  1443. #ifndef NO_SELECT
  1444. struct timeval selectval;
  1445. #endif
  1446. unsigned long valuemask;
  1447. XXSetWindowAttributes attributes;
  1448. Pixmap bgpixmap, iconpixmap;
  1449. int icon_w_x[6] = {0, 0, 1, 1, 2, 3},
  1450. X    icon_w_y[6] = {1, 3, 1, 2, 1, 3},
  1451. X    icon_b_x[6] = {0, 1, 1, 2, 2, 3},
  1452. X    icon_b_y[6] = {2, 0, 3, 2, 3, 2};
  1453. #define DEFAULTICONSIZE 64
  1454. #include "patchlevel.h"
  1455. char Title[] = XVIER_VERSION;
  1456. int c_index = 1, message_index = 0;
  1457. char *playercolor[2], levelnumstring[2] = "0",
  1458. X     *messagestring[5], yellowmovestring[20],
  1459. X     redmovestring[20];
  1460. #define DEFAULTFONTPATTERN "*-Helvetica-Medium-R-Normal-*"
  1461. #define MAXFONTS 100
  1462. XXFontStruct *fontstructarray[MAXFONTS];
  1463. int fontnum, quitposx, quitposy, newposx, newposy,
  1464. X    undoposx, undoposy, startposx, startposy, changeposx, changeposy;
  1465. int text1x, text2x, levely, humany, compy, movey;
  1466. int topwidth = 0, topheight = 0, boardwidth,
  1467. X    buttonwidth, buttonheight, buttonspace,
  1468. X    piece_dx, piece_dy, piece_width, piece_height,
  1469. X    *stone_x[2], *stone_y[2], stone_n[2] = {0, 0};
  1470. XXArc *stone[2], *holes;
  1471. int pipei[2], pipeo[2], pid, processing;
  1472. char *progname = PROGNAME;
  1473. #ifdef NO_SELECT
  1474. #include <poll.h>
  1475. struct pollfd pfd[2];
  1476. unsigned long npfd;
  1477. #else
  1478. #ifdef NO_FD_SET
  1479. int readfds, fullfds;
  1480. #else
  1481. fd_set readfds, fullfds;
  1482. #endif
  1483. #endif
  1484. int *columnfill;
  1485. X
  1486. struct _rgb_vals {
  1487. X  unsigned short red, green, blue;
  1488. } color_values[5] = {
  1489. X    { 65535, 65535, 65535 },
  1490. X    {     0,     0,     0 },
  1491. X    {     0,     0, 65535 },
  1492. X    { 65535, 65535,     0 },
  1493. X    { 65535,     0,     0 }},
  1494. X  gray_values[5] = {
  1495. X    { 65535, 65535, 65535 },
  1496. X    {     0,     0,     0 },
  1497. X    { 32767, 32767, 32767 },
  1498. X    { 65535, 65535, 65535 },
  1499. X    {     0,     0,     0 }},
  1500. X  *rgb_values;
  1501. X
  1502. int font_cmp(p1, p2)
  1503. XXFontStruct **p1, **p2;
  1504. {
  1505. X  int ret = ((*p1)->max_bounds.rbearing + (*p1)->max_bounds.lbearing) -
  1506. X        ((*p2)->max_bounds.rbearing + (*p2)->max_bounds.lbearing);
  1507. X
  1508. X  if (ret == 0)
  1509. X    ret = ((*p1)->max_bounds.ascent + (*p1)->max_bounds.descent) -
  1510. X      ((*p2)->max_bounds.ascent + (*p2)->max_bounds.descent);
  1511. X  return ret;
  1512. }
  1513. X
  1514. void change_cursor()
  1515. {
  1516. X  if (cursor_num == 3)
  1517. X    cursor_num = 0;
  1518. X  else
  1519. X    cursor_num++;
  1520. X  XDefineCursor(mydisplay, topwindow, cursor_q[cursor_num]);
  1521. }
  1522. X
  1523. void write_prog(ch)
  1524. char ch;
  1525. {
  1526. X  if (processing)
  1527. X    XBell(mydisplay, 0);
  1528. X  else {
  1529. X    if (write(pipeo[1], &ch, 1) < 1) {
  1530. X      perror("write to xvier_prog failed");
  1531. X      exit(1);
  1532. X    }
  1533. X    processing = 1;
  1534. X    cursor_num = 0;
  1535. X    XDefineCursor(mydisplay, topwindow, cursor_q[0]);
  1536. X  }
  1537. }
  1538. X
  1539. void message(newindex)
  1540. int newindex;
  1541. {
  1542. X  message_index = newindex;
  1543. X  XClearArea(mydisplay, topwindow, boardwidth,
  1544. X         topheight - movey + compy, 0, 0, False);
  1545. X  XDrawImageString(mydisplay, topwindow, textgc, text1x, movey,
  1546. X           messagestring[newindex], strlen(messagestring[newindex]));
  1547. }
  1548. X
  1549. void domove(ind, col)
  1550. int ind, col;
  1551. {
  1552. X  int n = stone_n[ind]++;
  1553. X
  1554. X  stone_x[ind][n] = col;
  1555. X  stone_y[ind][n] = columnfill[col]++;
  1556. X  stone[ind][n].x = piece_dx + stone_x[ind][n] * (piece_dx + piece_width);
  1557. X  stone[ind][n].y = piece_dy +
  1558. X    (rows - 1 - stone_y[ind][n]) * (piece_dy + piece_height);
  1559. X  stone[ind][n].width = piece_width;
  1560. X  stone[ind][n].height = piece_height;
  1561. X  XFillArc(mydisplay, boardwindow, stonegc[ind], stone[ind][n].x,
  1562. X       stone[ind][n].y, piece_width, piece_height, 0, 360 * 64);
  1563. }
  1564. X
  1565. void undomove(ind)
  1566. int ind;
  1567. {
  1568. X  int n = --stone_n[ind], col = stone_x[ind][n];
  1569. X
  1570. X  columnfill[col]--;
  1571. X  XClearArea(mydisplay, boardwindow, piece_dx / 2 +
  1572. X         col * (piece_dx + piece_width), piece_dy / 2 +
  1573. X         (rows - 1 - stone_y[ind][n]) * (piece_dy + piece_height),
  1574. X         piece_dx + piece_width, piece_dy + piece_height, False);
  1575. X  XDrawArc(mydisplay, boardwindow, textgc, 1 + piece_dx +
  1576. X       col * (piece_dx + piece_width), 1 + piece_dy +
  1577. X       (rows - 1 - stone_y[ind][n]) * (piece_dy + piece_height),
  1578. X       piece_width - 2, piece_height - 2, 0, 360 * 64);
  1579. }
  1580. X
  1581. void recalculate(width, height)
  1582. int width, height;
  1583. {
  1584. X  int i, j, fontid, d1, d2, d3, maxtextwidth, maxtextheight;
  1585. X  XCharStruct tmpsize;
  1586. X
  1587. X  if (width == topwidth && height == topheight)
  1588. X    return;
  1589. X  topwidth = width;
  1590. X  topheight = height;
  1591. X  boardwidth = (topwidth * 4) / 5;
  1592. X  buttonspace = (topwidth - boardwidth) / 10;
  1593. X  buttonwidth = (topwidth - boardwidth) - 2 * buttonspace;
  1594. X  buttonheight = (topheight / 2 - 4 * buttonspace) / 4;
  1595. X  if (buttonheight < 2 * buttonspace) {
  1596. X    buttonspace = topheight / 24;
  1597. X    buttonwidth = (topwidth - boardwidth) - 2 * buttonspace;
  1598. X    buttonheight = (topheight / 2 - 4 * buttonspace) / 4;
  1599. X  }
  1600. X  for (i = 0; i < fontnum; i++) {
  1601. X    int cpx, cpy, qpx, qpy, npx, npy, upx, upy;
  1602. X
  1603. X    XTextExtents(fontstructarray[i], "Change", 6, &d1, &d2, &d3, &tmpsize);
  1604. X    if (i > 0 && (tmpsize.rbearing + tmpsize.lbearing > buttonwidth - 2 ||
  1605. X          tmpsize.ascent + tmpsize.descent > buttonheight - 2))
  1606. X      continue;
  1607. X    cpx = (buttonwidth - tmpsize.lbearing - tmpsize.rbearing) / 2 +
  1608. X      tmpsize.lbearing;
  1609. X    cpy = (buttonheight - tmpsize.ascent - tmpsize.descent) / 2 +
  1610. X      tmpsize.ascent;
  1611. X    XTextExtents(fontstructarray[i], "Quit", 4, &d1, &d2, &d3, &tmpsize);
  1612. X    if (i > 0 && (tmpsize.rbearing + tmpsize.lbearing > buttonwidth - 2 ||
  1613. X          tmpsize.ascent + tmpsize.descent > buttonheight - 2))
  1614. X      continue;
  1615. X    qpx = (buttonwidth - tmpsize.lbearing - tmpsize.rbearing) / 2 +
  1616. X      tmpsize.lbearing;
  1617. X    qpy = (buttonheight - tmpsize.ascent - tmpsize.descent) / 2 +
  1618. X      tmpsize.ascent;
  1619. X    XTextExtents(fontstructarray[i], "New", 3, &d1, &d2, &d3, &tmpsize);
  1620. X    if (i > 0 && (tmpsize.rbearing + tmpsize.lbearing > buttonwidth - 2 ||
  1621. X          tmpsize.ascent + tmpsize.descent > buttonheight - 2))
  1622. X      continue;
  1623. X    npx = (buttonwidth - tmpsize.lbearing - tmpsize.rbearing) / 2 +
  1624. X      tmpsize.lbearing;
  1625. X    npy = (buttonheight - tmpsize.ascent - tmpsize.descent) / 2 +
  1626. X      tmpsize.ascent;
  1627. X    XTextExtents(fontstructarray[i], "Undo", 4, &d1, &d2, &d3, &tmpsize);
  1628. X    if (i > 0 && (tmpsize.rbearing + tmpsize.lbearing > buttonwidth - 2 ||
  1629. X          tmpsize.ascent + tmpsize.descent > buttonheight - 2))
  1630. X      continue;
  1631. X    upx = (buttonwidth - tmpsize.lbearing - tmpsize.rbearing) / 2 +
  1632. X      tmpsize.lbearing;
  1633. X    upy = (buttonheight - tmpsize.ascent - tmpsize.descent) / 2 +
  1634. X      tmpsize.ascent;
  1635. X    XTextExtents(fontstructarray[i], "Start", 5, &d1, &d2, &d3, &tmpsize);
  1636. X    if (i > 0 && (tmpsize.rbearing + tmpsize.lbearing > buttonwidth - 2 ||
  1637. X          tmpsize.ascent + tmpsize.descent > buttonheight - 2))
  1638. X      continue;
  1639. X    changeposx = cpx; changeposy = cpy;
  1640. X    quitposx = qpx; quitposy = qpy;
  1641. X    newposx = npx; newposy = npy;
  1642. X    undoposx = upx; undoposy = upy;
  1643. X    startposx = (buttonwidth - tmpsize.lbearing - tmpsize.rbearing) / 2 +
  1644. X      tmpsize.lbearing;
  1645. X    startposy = (buttonheight - tmpsize.ascent - tmpsize.descent) / 2 +
  1646. X      tmpsize.ascent;
  1647. X    fontid = fontstructarray[i]->fid;
  1648. X  }
  1649. X  XSetFont(mydisplay, buttongc, fontid);
  1650. X  maxtextheight = (topheight  - 5 * (buttonspace + buttonheight)) / 5;
  1651. X  maxtextwidth = topwidth - boardwidth - maxtextheight / 4;
  1652. X  for (i = 0; i < fontnum; i++) {
  1653. X    int max1x = 0, max2x = 0, j;
  1654. X
  1655. X    if (i > 0) {
  1656. X      if (fontstructarray[i]->max_bounds.ascent +
  1657. X      fontstructarray[i]->max_bounds.descent > maxtextheight)
  1658. X    goto next_font;
  1659. X      for (j = 0; j < 5; j++) {
  1660. X    XTextExtents(fontstructarray[i], messagestring[j],
  1661. X             strlen(messagestring[j]), &d1, &d2, &d3, &tmpsize);
  1662. X    if (tmpsize.rbearing +
  1663. X        fontstructarray[i]->max_bounds.lbearing > maxtextwidth)
  1664. X      goto next_font;
  1665. X      }
  1666. X    }
  1667. X    XTextExtents(fontstructarray[i], "Level: ", 7,
  1668. X         &d1, &d2, &d3, &tmpsize);
  1669. X    if (tmpsize.rbearing > max1x)
  1670. X      max1x = tmpsize.rbearing;
  1671. X    XTextExtents(fontstructarray[i], "You: ", 5,
  1672. X         &d1, &d2, &d3, &tmpsize);
  1673. X    if (tmpsize.rbearing > max1x)
  1674. X      max1x = tmpsize.rbearing;
  1675. X    XTextExtents(fontstructarray[i], "Me: ", 4,
  1676. X         &d1, &d2, &d3, &tmpsize);
  1677. X    if (tmpsize.rbearing > max1x)
  1678. X      max1x = tmpsize.rbearing;
  1679. X    XTextExtents(fontstructarray[i], playercolor[0], strlen(playercolor[0]),
  1680. X         &d1, &d2, &d3, &tmpsize);
  1681. X    if (tmpsize.rbearing > max2x)
  1682. X      max2x = tmpsize.rbearing;
  1683. X    XTextExtents(fontstructarray[i], playercolor[1], strlen(playercolor[1]),
  1684. X         &d1, &d2, &d3, &tmpsize);
  1685. X    if (tmpsize.rbearing > max2x)
  1686. X      max2x = tmpsize.rbearing;
  1687. X    if (i > 0 && max1x + max2x +
  1688. X    2 * fontstructarray[i]->max_bounds.lbearing > maxtextwidth)
  1689. X      goto next_font;
  1690. X    fontid = fontstructarray[i]->fid;
  1691. X    text1x  = boardwidth + fontstructarray[i]->max_bounds.lbearing +
  1692. X      (topwidth - boardwidth - maxtextwidth) / 2;
  1693. X    text2x = text1x + max1x  + fontstructarray[i]->max_bounds.lbearing;
  1694. X    movey = topheight - maxtextheight / 8 -
  1695. X      fontstructarray[i]->max_bounds.descent -
  1696. X    (maxtextheight - fontstructarray[i]->max_bounds.ascent -
  1697. X     fontstructarray[i]->max_bounds.descent) / 2;
  1698. X    compy = movey - maxtextheight - maxtextheight / 4;
  1699. X    humany = compy - maxtextheight - maxtextheight / 4;
  1700. X    levely = humany - maxtextheight - maxtextheight / 4;
  1701. X  next_font:
  1702. X    ;
  1703. X  }
  1704. X  XSetFont(mydisplay, textgc, fontid);
  1705. X  piece_dx = boardwidth / (columns * 5 + 1);
  1706. X  piece_width = (boardwidth - (columns + 1) * piece_dx) / columns;
  1707. X  piece_dy = topheight / (rows * 5 + 1);
  1708. X  piece_height = (topheight - (rows + 1) * piece_dy) / rows;
  1709. X  for (i = 0; i < stone_n[0]; i++) {
  1710. X    stone[0][i].x = piece_dx + stone_x[0][i] * (piece_dx + piece_width);
  1711. X    stone[0][i].y = piece_dy +
  1712. X      (rows - 1 - stone_y[0][i]) * (piece_dy + piece_height);
  1713. X    stone[0][i].width = piece_width;
  1714. X    stone[0][i].height = piece_height;
  1715. X  }
  1716. X  for (i = 0; i < stone_n[1]; i++) {
  1717. X    stone[1][i].x = piece_dx + stone_x[1][i] * (piece_dx + piece_width);
  1718. X    stone[1][i].y = piece_dy +
  1719. X      (rows - 1 - stone_y[1][i]) * (piece_dy + piece_height);
  1720. X    stone[1][i].width = piece_width;
  1721. X    stone[1][i].height = piece_height;
  1722. X  }
  1723. X  for (i = 0; i < rows; i++)
  1724. X    for (j = 0; j < columns; j++) {
  1725. X      holes[i*columns+j].x = 1 + piece_dx + j * (piece_dx + piece_width);
  1726. X      holes[i*columns+j].y = 1 + piece_dy + i * (piece_dy + piece_height);
  1727. X      holes[i*columns+j].width = piece_width - 2;
  1728. X      holes[i*columns+j].height = piece_height - 2;
  1729. X    }
  1730. X  XResizeWindow(mydisplay, boardwindow, boardwidth, topheight);
  1731. X  XMoveResizeWindow(mydisplay, quitwindow, boardwidth + buttonspace,
  1732. X            buttonspace, buttonwidth, buttonheight);
  1733. X  XMoveResizeWindow(mydisplay, newwindow, boardwidth + buttonspace,
  1734. X            2 * buttonspace + buttonheight,
  1735. X            buttonwidth, buttonheight);
  1736. X  XMoveResizeWindow(mydisplay, undowindow, boardwidth + buttonspace,
  1737. X            buttonspace + 2 * (buttonheight + buttonspace),
  1738. X            buttonwidth, buttonheight);
  1739. X  XMoveResizeWindow(mydisplay, startwindow, boardwidth + buttonspace,
  1740. X            buttonspace + 3 * (buttonheight + buttonspace),
  1741. X            buttonwidth, buttonheight);
  1742. X  XMoveResizeWindow(mydisplay, changewindow, boardwidth + buttonspace,
  1743. X            buttonspace + 4 * (buttonheight + buttonspace),
  1744. X            buttonwidth, buttonheight);
  1745. X  XSetWindowBorderWidth(mydisplay, quitwindow,
  1746. X            ((buttonspace / 8 < 1) ? 1 : buttonspace / 8));
  1747. X  XSetWindowBorderWidth(mydisplay, newwindow,
  1748. X            ((buttonspace / 8 < 1) ? 1 : buttonspace / 8));
  1749. X  XSetWindowBorderWidth(mydisplay, undowindow,
  1750. X            ((buttonspace / 8 < 1) ? 1 : buttonspace / 8));
  1751. X  XSetWindowBorderWidth(mydisplay, startwindow,
  1752. X            ((buttonspace / 8 < 1) ? 1 : buttonspace / 8));
  1753. X  XSetWindowBorderWidth(mydisplay, changewindow,
  1754. X            ((buttonspace / 8 < 1) ? 1 : buttonspace / 8));
  1755. }
  1756. X
  1757. #define Repaint_topwindow() XClearArea(mydisplay, topwindow, boardwidth,\
  1758. X                  5 * (buttonspace + buttonheight), 0, 0, True)
  1759. X
  1760. int main(argc, argv)
  1761. int    argc;
  1762. char **argv;
  1763. {
  1764. X  char text[10], **fontnames, *av[4], row_string[3], column_string[3];
  1765. X  int i, j, geo_ret, userx, usery, userwidth, userheight;
  1766. X  int iconsize, Ilistsize;
  1767. X  XIconSize *Ilist;
  1768. X
  1769. X  for (i = 1; i < argc; i++) {
  1770. X    if (strcmp(argv[i], "-display") == 0)
  1771. X      if (++i == argc)
  1772. X    goto usage;
  1773. X      else
  1774. X    displayname = argv[i];
  1775. X    else if (strcmp(argv[i], "-geometry") == 0)
  1776. X      if (++i == argc)
  1777. X    goto usage;
  1778. X      else
  1779. X    geostring = argv[i];
  1780. X    else if (strcmp(argv[i], "-fn") == 0)
  1781. X      if (++i == argc)
  1782. X    goto usage;
  1783. X      else
  1784. X    fontpattern = argv[i];
  1785. X    else if (strcmp(argv[i], "-prog") == 0)
  1786. X      if (++i == argc)
  1787. X    goto usage;
  1788. X      else
  1789. X    progname = argv[i];
  1790. X    else if (strcmp(argv[i], "-rows") == 0)
  1791. X      if (++i == argc)
  1792. X    goto usage;
  1793. X      else {
  1794. X    if ((rows = atoi(argv[i])) < 4 || rows > MAXRC)
  1795. X      goto usage;
  1796. X      }
  1797. X    else if (strcmp(argv[i], "-columns") == 0)
  1798. X      if (++i == argc)
  1799. X    goto usage;
  1800. X      else {
  1801. X    if ((columns = atoi(argv[i])) < 4 || columns > MAXRC)
  1802. SHAR_EOF
  1803. true || echo 'restore of xvier.c failed'
  1804. fi
  1805. echo 'End of  part 1'
  1806. echo 'File xvier.c is continued in part 2'
  1807. echo 2 > _shar_seq_.tmp
  1808. exit 0
  1809. -- 
  1810. ---
  1811. Senior Systems Scientist        mail: dcmartin@msi.com
  1812. Molecular Simulations, Inc.        uucp: uunet!dcmartin
  1813. 796 North Pastoria Avenue        at&t: 408/522-9236
  1814.