home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume12 / acm / part04 < prev    next >
Internet Message Format  |  1991-03-01  |  48KB
  1. Path: uunet!elroy.jpl.nasa.gov!decwrl!sun-barr!newstop!male!jethro!exodus!mipsdal.mips.com
  2. From: riley@mipsdal.mips.com (Riley Rainey)
  3. Newsgroups: comp.sources.x
  4. Subject: v12i009: acm - X aerial combat simulation, Part04/09
  5. Message-ID: <8986@exodus.Eng.Sun.COM>
  6. Date: 2 Mar 91 08:32:28 GMT
  7. References: <csx-12i006:acm@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 1742
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: riley@mipsdal.mips.com (Riley Rainey)
  13. Posting-number: Volume 12, Issue 9
  14. Archive-name: acm/part04
  15.  
  16. #! /bin/sh
  17. # This is a shell archive.  Remove anything before this line, then unpack
  18. # it by saving it into a file and typing "sh file".  To overwrite existing
  19. # files, type "sh file -c".  You can also feed this as standard input via
  20. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  21. # will see the following message at the end:
  22. #        "End of archive 4 (of 9)."
  23. # Contents:  acm/V/test/Makefile acm/V/test/animate.c
  24. #   acm/fsim/doRadar.c acm/fsim/newPlane.c acm/fsim/rwy
  25. # Wrapped by riley@mipsdal on Thu Feb 14 10:09:18 1991
  26. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  27. if test -f 'acm/V/test/Makefile' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'acm/V/test/Makefile'\"
  29. else
  30. echo shar: Extracting \"'acm/V/test/Makefile'\" \(7148 characters\)
  31. sed "s/^X//" >'acm/V/test/Makefile' <<'END_OF_FILE'
  32. X# Makefile generated by imake - do not edit!
  33. X# $XConsortium: imake.c,v 1.37 88/10/08 20:08:30 jim Exp $
  34. X
  35. X###########################################################################
  36. X# X Window System Makefile generated from template file Imake.tmpl
  37. X# $XConsortium: Imake.tmpl,v 1.91 88/10/23 22:37:10 jim Exp $
  38. X#
  39. X# Do not change the body of the imake template file.  Server-specific
  40. X# parameters may be set in the appropriate .macros file; site-specific
  41. X# parameters (but shared by all servers) may be set in site.def.  If you
  42. X# make any changes, you'll need to rebuild the makefiles using
  43. X# "make World" (at best) or "make Makefile; make Makefiles" (at least) in
  44. X# the top level directory.
  45. X#
  46. X# If your C preprocessor doesn't define any unique symbols, you'll need
  47. X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing
  48. X# "make Makefile", "make Makefiles", or "make World").
  49. X#
  50. X# If you absolutely can't get imake to work, you'll need to set the
  51. X# variables at the top of each Makefile as well as the dependencies at the
  52. X# bottom (makedepend will do this automatically).
  53. X#
  54. X
  55. X# WARNING:  Imake.tmpl not configured; guessing at definitions!!!
  56. X# This might mean that BOOTSTRAPCFLAGS wasn't set when building imake.
  57. X
  58. X###########################################################################
  59. X# platform-specific configuration parameters - edit Guess.macros to change
  60. X
  61. X# platform:  $XConsortium: Guess.macros,v 1.30 88/10/23 11:00:33 jim Exp $
  62. X
  63. X               AR = ar clq
  64. X  BOOTSTRAPCFLAGS =
  65. X               CC = cc
  66. X         COMPRESS = compress
  67. X              CPP = /lib/cpp
  68. X          INSTALL = install
  69. X               LD = ld
  70. X             LINT = lint
  71. X      LINTLIBFLAG = -C
  72. X         LINTOPTS = -axz
  73. X               LN = ln -s
  74. X               MV = mv
  75. X           RANLIB = ranlib
  76. X  RANLIBINSTFLAGS =
  77. X               RM = rm -f
  78. X  STD_CPP_DEFINES =             */
  79. X      STD_DEFINES =
  80. XSYSLAST_LIBRARIES =
  81. X             TAGS = ctags
  82. X
  83. X###########################################################################
  84. X# site-specific configuration parameters - edit site.def to change
  85. X
  86. X# site:  $XConsortium: site.def,v 1.16 88/10/12 10:30:24 jim Exp $
  87. X
  88. X###########################################################################
  89. X# definitions common to all Makefiles - do not edit
  90. X
  91. X          SHELL =     /bin/sh
  92. X
  93. X        DESTDIR =
  94. X      USRLIBDIR = $(DESTDIR)/usr/lib
  95. X         BINDIR = $(DESTDIR)/usr/bin/X11
  96. X         INCDIR = $(DESTDIR)/usr/include/X11
  97. X         ADMDIR = $(DESTDIR)/usr/adm
  98. X         LIBDIR = $(USRLIBDIR)/X11
  99. X     LINTLIBDIR = $(USRLIBDIR)/lint
  100. X        FONTDIR = $(LIBDIR)/fonts
  101. X       XINITDIR = $(LIBDIR)/xinit
  102. X         XDMDIR = $(LIBDIR)/xdm
  103. X         UWMDIR = $(LIBDIR)/uwm
  104. X         AWMDIR = $(LIBDIR)/awm
  105. X         TWMDIR = $(LIBDIR)/twm
  106. X        MANPATH = $(DESTDIR)/usr/man
  107. X  MANSOURCEPATH = $(MANPATH)/man
  108. X         MANDIR = $(MANSOURCEPATH)n
  109. X      LIBMANDIR = $(MANSOURCEPATH)3
  110. X    XAPPLOADDIR = $(LIBDIR)/app-defaults
  111. X
  112. X   INSTBINFLAGS = -m 0755
  113. X   INSTUIDFLAGS = -m 4755
  114. X   INSTLIBFLAGS = -m 0664
  115. X   INSTINCFLAGS = -m 0444
  116. X   INSTMANFLAGS = -m 0444
  117. X   INSTAPPFLAGS = -m 0444
  118. X  INSTKMEMFLAGS = -m 4755
  119. X        FCFLAGS = -t
  120. X    CDEBUGFLAGS = -O
  121. X
  122. X        PATHSEP = /
  123. X         DEPEND = $(DEPENDSRC)/makedepend
  124. X          IMAKE = $(IMAKESRC)/imake
  125. X            RGB = $(RGBSRC)/rgb
  126. X             FC = $(BDFTOSNFSRC)/bdftosnf
  127. X      MKFONTDIR = $(MKFONTDIRSRC)/mkfontdir
  128. X      MKDIRHIER = $(SCRIPTSSRC)/mkdirhier.sh
  129. X
  130. X         CFLAGS = $(CDEBUGFLAGS) $(INCLUDES) $(STD_DEFINES) $(DEFINES)
  131. X      LINTFLAGS = $(LINTOPTS) $(INCLUDES) $(STD_DEFINES) $(DEFINES) -DLINT
  132. X        LDFLAGS = $(CDEBUGFLAGS) $(SYS_LIBRARIES) $(SYSAUX_LIBRARIES)
  133. X            TOP = /people/riley/R3
  134. X      CLIENTSRC = $(TOP)/clients
  135. X        DEMOSRC = $(TOP)/demos
  136. X         LIBSRC = $(TOP)/lib
  137. X        FONTSRC = $(TOP)/fonts
  138. X     INCLUDESRC = $(TOP)/X11
  139. X      SERVERSRC = $(TOP)/server
  140. X        UTILSRC = $(TOP)/util
  141. X     SCRIPTSSRC = $(UTILSRC)/scripts
  142. X     EXAMPLESRC = $(TOP)/examples
  143. X     CONTRIBSRC = $(TOP)/contrib
  144. X         DOCSRC = $(TOP)/doc
  145. X         RGBSRC = $(TOP)/rgb
  146. X      DEPENDSRC = $(UTILSRC)/makedepend
  147. X       IMAKESRC = $(UTILSRC)/imake
  148. X       IRULESRC = $(UTILSRC)/imake.includes
  149. X        XLIBSRC = $(LIBSRC)/X
  150. X         XMUSRC = $(LIBSRC)/Xmu
  151. X     TOOLKITSRC = $(LIBSRC)/Xt
  152. X     AWIDGETSRC = $(LIBSRC)/Xaw
  153. X     OLDXLIBSRC = $(LIBSRC)/oldX
  154. X    BDFTOSNFSRC = $(FONTSRC)/bdftosnf
  155. X   MKFONTDIRSRC = $(FONTSRC)/mkfontdir
  156. X   EXTENSIONSRC = $(TOP)/extensions
  157. X   EXTENSIONLIB = $(EXTENSIONSRC)/lib/libXext.a
  158. X           XLIB = $(XLIBSRC)/libX11.a
  159. X         XMULIB = $(XMUSRC)/libXmu.a
  160. X        OLDXLIB = $(OLDXLIBSRC)/liboldX.a
  161. X       XTOOLLIB = $(TOOLKITSRC)/libXt.a
  162. X         XAWLIB = $(AWIDGETSRC)/libXaw.a
  163. X       LINTXLIB = $(XLIBSRC)/llib-lX11.ln
  164. X        LINTXMU = $(XMUSRC)/llib-lXmu.ln
  165. X      LINTXTOOL = $(TOOLKITSRC)/llib-lXt.ln
  166. X        LINTXAW = $(AWIDGETSRC)/llib-lXaw.ln
  167. X       INCLUDES = -I$(TOP)
  168. X      MACROFILE = Guess.macros
  169. X   ICONFIGFILES = $(IRULESRC)/Imake.tmpl \
  170. X            $(IRULESRC)/$(MACROFILE) $(IRULESRC)/site.def
  171. X  IMAKE_DEFINES =
  172. X      IMAKE_CMD = $(NEWTOP)$(IMAKE) -TImake.tmpl -I$(NEWTOP)$(IRULESRC) \
  173. X            -s Makefile $(IMAKE_DEFINES)
  174. X         RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a \
  175. X            .emacs_* tags TAGS make.log MakeOut
  176. X
  177. X###########################################################################
  178. X# rules:  $XConsortium: Imake.rules,v 1.71 88/10/23 22:46:34 jim Exp $
  179. X
  180. X###########################################################################
  181. X# start of Imakefile
  182. X
  183. XCDEBUGFLAGS = -systype bsd43 -O
  184. X
  185. XSRCS=            animate.c app.c
  186. XOBJS=            animate.o app.o
  187. XSYS_LIBRARIES=        -L../lib -lV -lm -lX11
  188. X
  189. X        PROGRAM = animate
  190. X
  191. Xall:: animate
  192. X
  193. Xanimate: $(OBJS) $(LOCAL_LIBRARIES)
  194. X    $(RM) $@
  195. X    $(CC) -o $@ $(OBJS) $(LOCAL_LIBRARIES) $(LDFLAGS) $(SYSLAST_LIBRARIES)
  196. X
  197. Xrelink::
  198. X    $(RM) $(PROGRAM)
  199. X    $(MAKE) $(MFLAGS) $(PROGRAM)
  200. X
  201. Xinstall:: animate
  202. X    $(INSTALL) -c $(INSTALLFLAGS) animate $(BINDIR)
  203. X
  204. Xinstall.man:: animate.man
  205. X    $(INSTALL) -c $(INSTMANFLAGS) animate.man $(MANDIR)/animate.n
  206. X
  207. Xdepend:: $(DEPEND)
  208. X
  209. Xdepend::
  210. X    $(DEPEND) -s "# DO NOT DELETE" -- $(CFLAGS) -- $(SRCS)
  211. X
  212. X$(DEPEND):
  213. X    @echo "making $@"; \
  214. X    cd $(DEPENDSRC); $(MAKE)
  215. X
  216. Xclean::
  217. X    $(RM) $(PROGRAM)
  218. X
  219. X###########################################################################
  220. X# Imake.tmpl common rules for all Makefiles - do not edit
  221. X
  222. Xemptyrule::
  223. X
  224. Xclean::
  225. X    $(RM_CMD) \#*
  226. X
  227. XMakefile:: $(IMAKE)
  228. X
  229. XMakefile:: Imakefile \
  230. X    $(IRULESRC)/Imake.tmpl \
  231. X    $(IRULESRC)/Imake.rules \
  232. X    $(IRULESRC)/site.def \
  233. X    $(IRULESRC)/$(MACROFILE)
  234. X    -@if [ -f Makefile ]; then \
  235. X        echo "$(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \
  236. X        $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \
  237. X    else exit 0; fi
  238. X    $(IMAKE_CMD) -DTOPDIR=$(TOP)
  239. X
  240. X$(IMAKE):
  241. X    @echo "making $@"; \
  242. X    cd $(IMAKESRC); $(MAKE) BOOTSTRAPCFLAGS=$(BOOTSTRAPCFLAGS)
  243. X
  244. Xtags::
  245. X    $(TAGS) -w *.[ch]
  246. X    $(TAGS) -xw *.[ch] > TAGS
  247. X
  248. X###########################################################################
  249. X# empty rules for directories that do not have SUBDIRS - do not edit
  250. X
  251. Xinstall::
  252. X    @echo "install done"
  253. X
  254. Xinstall.man::
  255. X    @echo "install.man done"
  256. X
  257. XMakefiles::
  258. X
  259. X###########################################################################
  260. X# dependencies generated by makedepend
  261. X
  262. END_OF_FILE
  263. if test 7148 -ne `wc -c <'acm/V/test/Makefile'`; then
  264.     echo shar: \"'acm/V/test/Makefile'\" unpacked with wrong size!
  265. fi
  266. # end of 'acm/V/test/Makefile'
  267. fi
  268. if test -f 'acm/V/test/animate.c' -a "${1}" != "-c" ; then 
  269.   echo shar: Will not clobber existing file \"'acm/V/test/animate.c'\"
  270. else
  271. echo shar: Extracting \"'acm/V/test/animate.c'\" \(7198 characters\)
  272. sed "s/^X//" >'acm/V/test/animate.c' <<'END_OF_FILE'
  273. X#include <stdio.h>
  274. X#include <X11/Xlib.h>
  275. X#include <X11/Xutil.h>
  276. X
  277. Xstatic char *id = "V library animation test -- Riley Rainey";
  278. X
  279. X#define STRING    "Double Buffered Animation"
  280. X#define BORDER    1
  281. X#define FONT    "fixed"
  282. X#define    ARG_FONT        "font"
  283. X#define    ARG_BORDER_COLOR    "borderColor"
  284. X#define    ARG_BACKGROUND        "background"
  285. X#define ARG_BORDER        "borderWidth"
  286. X#define    ARG_GEOMETRY        "geometry"
  287. X#define DEFAULT_BACKGROUND    "#29350B"
  288. X#define DEFAULT_BORDER        "black"
  289. X
  290. X#define SW_BORDER    1
  291. X#define SW_BG        3
  292. X#define SW_GEOM        4
  293. X
  294. Xstruct {
  295. X    char    *sw;
  296. X    int    value;
  297. X    }    switches[] = {
  298. X    "-bw", SW_BORDER,
  299. X    "-bg", SW_BG,
  300. X    "-geometry", SW_GEOM,
  301. X    NULL, 0}, *swp;
  302. X
  303. Xchar *background = NULL, *filename;
  304. Xint  borderWidth = 1;
  305. Xint  mono;
  306. X
  307. X
  308. X/*
  309. X * This structure forms the WM_HINTS property of the window,
  310. X * letting the window manager know how to handle this window.
  311. X * See Section 9.1 of the Xlib manual.
  312. X */
  313. XXWMHints    xwmh = {
  314. X    (InputHint|StateHint),    /* flags */
  315. X    False,            /* input */
  316. X    NormalState,        /* initial_state */
  317. X    0,                /* icon pixmap */
  318. X    0,                /* icon window */
  319. X    0, 0,            /* icon location */
  320. X    0,                /* icon mask */
  321. X    0,                /* Window group */
  322. X};
  323. X
  324. XDisplay        *dpy;        /* X server connection */
  325. XWindow        win;        /* Window ID */
  326. XGC        gc;        /* GC to draw with */
  327. XXGCValues    gcv;
  328. XXSizeHints    xsh;        /* Size hints for window manager */
  329. XColormap    cmap;
  330. X
  331. Xstatic unsigned long    planemask [6];    /* plane masks from XAllocColorCells */
  332. Xstatic unsigned long   pixels [16];    /* pixel values from XAllocColorCells */
  333. XGC        curGC;
  334. X
  335. Xmain(argc,argv)
  336. X    int argc;
  337. X    char **argv;
  338. X{
  339. X    char       *fontName;    /* Name of font for string */
  340. X    XFontStruct *fontstruct;    /* Font descriptor */
  341. X    unsigned long ftw, fth, pad;/* Font size parameters */
  342. X    unsigned long bg, bd;    /* Pixel values */
  343. X    unsigned long bw;        /* Border width */
  344. X    char       *tempstr;    /* Temporary string */
  345. X    XColor      color;        /* Temporary color */
  346. X    char       *geomSpec = NULL;/* Window geometry string */
  347. X    XSetWindowAttributes xswa;    /* Temporary Set Window Attribute struct */
  348. X    char    **c;
  349. X
  350. X/*
  351. X *  Parse command line
  352. X */
  353. X
  354. X    for (c= &argv[1]; *c != (char *) NULL; ++c)
  355. X    if (**c == '-') {
  356. X        for (swp= &switches[0]; swp->value != 0; ++swp)
  357. X        if (strcmp (swp->sw, *c) == 0) {
  358. X            switch (swp->value) {
  359. X            case SW_GEOM: 
  360. X                geomSpec = *(++c);
  361. X                break;
  362. X            case SW_BG:
  363. X                background = *(++c);
  364. X                break;
  365. X            case SW_BORDER:
  366. X                borderWidth = atoi (*(++c));
  367. X                break;
  368. X            }
  369. X                break;
  370. X        }
  371. X        if (swp->value == 0) {
  372. X        fprintf (stderr, "%s: invalid switch %s", argv[0], *c);
  373. X        exit (1);
  374. X        }
  375. X    }
  376. X    else
  377. X        filename = *c;
  378. X
  379. X    /*
  380. X     * Open the display using the $DISPLAY environment variable to locate
  381. X     * the X server.  See Section 2.1.
  382. X     */
  383. X    if ((dpy = XOpenDisplay(NULL)) == NULL) {
  384. X    fprintf(stderr, "%s: can't open %s\n", argv[0], XDisplayName(NULL));
  385. X    exit(1);
  386. X    }
  387. X
  388. X    mono = (DisplayPlanes(dpy, 0) < 2) ? 1 : 0;
  389. X
  390. X    /*
  391. X     * Load the font to use.  See Sections 10.2 & 6.5.1
  392. X     */
  393. X    if ((fontName = XGetDefault(dpy, argv[0], ARG_FONT)) == NULL) {
  394. X    fontName = FONT;
  395. X    }
  396. X    if ((fontstruct = XLoadQueryFont(dpy, fontName)) == NULL) {
  397. X    fprintf(stderr, "%s: display %s doesn't know font %s\n",
  398. X        argv[0], DisplayString(dpy), fontName);
  399. X    exit(1);
  400. X    }
  401. X    fth = fontstruct->max_bounds.ascent + fontstruct->max_bounds.descent;
  402. X    ftw = fontstruct->max_bounds.width;
  403. X
  404. X    /*
  405. X     * Select colors for the border,  the window background,  and the
  406. X     * foreground.  We use the default colormap to allocate the colors in.
  407. X     * See Sections 2.2.1, 5.1.2, & 10.4.
  408. X     */
  409. X
  410. X    cmap = DefaultColormap(dpy, DefaultScreen(dpy));
  411. X
  412. X    if ((tempstr = XGetDefault(dpy, argv[0], ARG_BORDER_COLOR)) == NULL)
  413. X    tempstr = DEFAULT_BORDER;
  414. X    if (XParseColor(dpy, cmap, tempstr, &color) == 0) {
  415. X    fprintf (stderr, "Can't get border color %s\n", tempstr);
  416. X    exit (1);
  417. X    }
  418. X    bd = color.pixel;
  419. X
  420. X/*
  421. X *  Allocate Color Planes and one extra cell for the border color.
  422. X */
  423. X
  424. X    if (mono == 0)
  425. X    if (XAllocColorCells (dpy, cmap, False, planemask, 0, pixels, 1) == 0) {
  426. X    fprintf (stderr, "Cannot allocate color cells\n");
  427. X    exit (1);
  428. X    }
  429. X    bg = WhitePixel (dpy, 0);
  430. X
  431. X/*
  432. X *  Store border color
  433. X */
  434. X
  435. X    if (mono)
  436. X    bd = BlackPixel (dpy, 0);
  437. X    else {
  438. X        bd = color.pixel = pixels [0];
  439. X        XStoreColor (dpy, cmap, &color);
  440. X    }
  441. X
  442. X/*
  443. X *  Background Color (pixels [0] defines this).
  444. X */
  445. X
  446. X    if (background == NULL)
  447. X    background = XGetDefault (dpy, argv[0], ARG_BACKGROUND);
  448. X    if (background == NULL)
  449. X    background = DEFAULT_BACKGROUND;
  450. X
  451. X    /*
  452. X     * Set the border width of the window,  and the gap between the text
  453. X     * and the edge of the window, "pad".
  454. X     */
  455. X    pad = BORDER;
  456. X    if ((tempstr = XGetDefault(dpy, argv[0], ARG_BORDER)) == NULL)
  457. X    bw = 1;
  458. X    else
  459. X    bw = atoi(tempstr);
  460. X
  461. X    /*
  462. X     * Deal with providing the window with an initial position & size.
  463. X     * Fill out the XSizeHints struct to inform the window manager. See
  464. X     * Sections 9.1.6 & 10.3.
  465. X     */
  466. X    if (geomSpec == NULL)
  467. X        geomSpec = XGetDefault(dpy, argv[0], ARG_GEOMETRY);
  468. X
  469. X    if (geomSpec == NULL) {
  470. X    /*
  471. X     * The defaults database doesn't contain a specification of the
  472. X     * initial size & position - fit the window to the text and locate
  473. X     * it in the center of the screen.
  474. X     */
  475. X    xsh.flags = (PPosition | PSize);
  476. X    xsh.height = 800;
  477. X    xsh.width = 1000;
  478. X    xsh.x = (DisplayWidth(dpy, DefaultScreen(dpy)) - xsh.width) / 2;
  479. X    xsh.y = (DisplayHeight(dpy, DefaultScreen(dpy)) - xsh.height) / 2;
  480. X    }
  481. X    else {
  482. X    int         bitmask;
  483. X
  484. X    bzero(&xsh, sizeof(xsh));
  485. X    bitmask = XGeometry(dpy, DefaultScreen(dpy), geomSpec, geomSpec,
  486. X                bw, ftw, fth, pad, pad, &(xsh.x), &(xsh.y),
  487. X                &(xsh.width), &(xsh.height));
  488. X    if (bitmask & (XValue | YValue)) {
  489. X        xsh.flags |= USPosition;
  490. X    }
  491. X    if (bitmask & (WidthValue | HeightValue)) {
  492. X        xsh.flags |= USSize;
  493. X    }
  494. X    }
  495. X
  496. X    /*
  497. X     * Create the Window with the information in the XSizeHints, the
  498. X     * border width,  and the border & background pixels. See Section 3.3.
  499. X     */
  500. X    win = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy),
  501. X                  xsh.x, xsh.y, xsh.width, xsh.height,
  502. X                  bw, bd, bg);
  503. X
  504. X    /*
  505. X     * Set the standard properties for the window managers. See Section
  506. X     * 9.1.
  507. X     */
  508. X    XSetStandardProperties(dpy, win, STRING, STRING, None, argv, argc, &xsh);
  509. X    XSetWMHints(dpy, win, &xwmh);
  510. X
  511. X    /*
  512. X     * Ensure that the window's colormap field points to the default
  513. X     * colormap,  so that the window manager knows the correct colormap to
  514. X     * use for the window.  See Section 3.2.9. Also,  set the window's Bit
  515. X     * Gravity to reduce Expose events.
  516. X     */
  517. X    xswa.colormap = DefaultColormap(dpy, DefaultScreen(dpy));
  518. X    xswa.bit_gravity = NorthWestGravity;
  519. X    XChangeWindowAttributes(dpy, win, (CWColormap | CWBitGravity), &xswa);
  520. X
  521. X    /*
  522. X     * Create the GC for drawing the picture.
  523. X     */
  524. X    gcv.font = fontstruct->fid;
  525. X    curGC = XCreateGC(dpy, win, GCFont, &gcv);
  526. X
  527. X    /*
  528. X     * Specify the event types we're interested in - only Exposures.  See
  529. X     * Sections 8.5 & 8.4.5.1
  530. X     */
  531. X    XSelectInput(dpy, win, ExposureMask);
  532. X
  533. X    /*
  534. X     * Map the window to make it visible.  See Section 3.5.
  535. X     */
  536. X    XMapWindow(dpy, win);
  537. X
  538. X    app(background);
  539. X
  540. X    exit(1);
  541. X}
  542. X
  543. END_OF_FILE
  544. if test 7198 -ne `wc -c <'acm/V/test/animate.c'`; then
  545.     echo shar: \"'acm/V/test/animate.c'\" unpacked with wrong size!
  546. fi
  547. # end of 'acm/V/test/animate.c'
  548. fi
  549. if test -f 'acm/fsim/doRadar.c' -a "${1}" != "-c" ; then 
  550.   echo shar: Will not clobber existing file \"'acm/fsim/doRadar.c'\"
  551. else
  552. echo shar: Extracting \"'acm/fsim/doRadar.c'\" \(9804 characters\)
  553. sed "s/^X//" >'acm/fsim/doRadar.c' <<'END_OF_FILE'
  554. X/*
  555. X *    xflight : an aerial combat simulator for X
  556. X *
  557. X *    Written by Riley Rainey,  riley@mips.com
  558. X *
  559. X *    Permission to use, copy, modify and distribute (without charge) this
  560. X *    software, documentation, images, etc. is granted, provided that this 
  561. X *    comment and the author's name is retained.
  562. X *
  563. X */
  564. X 
  565. X#include "pm.h"
  566. X#include <stdio.h>
  567. X#include <math.h>
  568. X
  569. X#define scanSlope     2.1445
  570. X
  571. Xvoid plotPrimaryTarget(), plotNormalTarget();
  572. X
  573. Xstatic char *thirty = "30";
  574. X
  575. X/*
  576. X *  We'll build an array that contains the amount of radar radiation that each
  577. X *  craft can "see" coming from another player.  This is used to build each players
  578. X *  radar threat display.
  579. X *
  580. X *  rval[i][j] will represent the amount of radar energy that player j sees coming from
  581. X *  player i.
  582. X *
  583. X *  For neatness, the rval array has been moved to the ptbl vector.
  584. X */
  585. X
  586. Xchar *ItoA (n, s)
  587. Xint    n;
  588. Xchar    *s; {
  589. X
  590. X    if (abs(n) > 999) {
  591. X        sprintf (s, "%d,%3.3d", n/1000, abs(n) % 1000);
  592. X    }
  593. X    else 
  594. X        sprintf (s, "%d", n);
  595. X
  596. X    return s;
  597. X}
  598. X
  599. Xint doRadar (c, u)
  600. Xcraft *c;
  601. Xviewer *u; {
  602. X
  603. X    register craft *p;
  604. X    register int    i, t, x, y;
  605. X    register int    xc, yc;
  606. X    register double    xs, ys;
  607. X    char        *buf;
  608. X
  609. X    t = c->curRadarTarget = getRadarTarget (c, 0);
  610. X    xc = (u->radarWidth + 1) / 2;
  611. X    yc = (u->radarHeight + 1) / 2;
  612. X
  613. X/*
  614. X *  Set drawing colors and font
  615. X */
  616. X
  617. X    XSetForeground (u->dpy, u->gc, u->v->flags & VPMono ?
  618. X            BlackPixel(u->v->dpy, u->v->screen) :
  619. X            u->v->pixel[blackPixel]);
  620. X    XFillRectangle (u->dpy, u->rwin, u->gc, 0, 0,
  621. X         u->radarWidth, u->radarHeight);
  622. X    XSetForeground (u->dpy, u->gc, u->v->flags & VPMono ?
  623. X            WhitePixel(u->v->dpy, u->v->screen) :
  624. X            u->v->pixel[whitePixel]);
  625. X    XSetFont (u->dpy, u->gc, u->rfont->fid);
  626. X
  627. X/*
  628. X *  Draw reference "thing"
  629. X */
  630. X
  631. X    XDrawLine (u->dpy, u->rwin, u->gc, xc, yc, xc - 5, yc + 5);
  632. X    XDrawLine (u->dpy, u->rwin, u->gc, xc - 10, yc, xc - 5, yc + 5);
  633. X    XDrawLine (u->dpy, u->rwin, u->gc, xc - 10, yc, xc - 18, yc);
  634. X    XDrawLine (u->dpy, u->rwin, u->gc, xc, yc, xc + 5, yc + 5);
  635. X    XDrawLine (u->dpy, u->rwin, u->gc, xc + 10, yc, xc + 5, yc + 5);
  636. X    XDrawLine (u->dpy, u->rwin, u->gc, xc + 10, yc, xc + 18, yc);
  637. X    XDrawLine (u->dpy, u->rwin, u->gc, 0, 0, u->radarWidth-1, 0);
  638. X    XDrawLine (u->dpy, u->rwin, u->gc, u->radarWidth-1, 0,
  639. X        u->radarWidth-1, u->radarHeight-1);
  640. X    XDrawLine (u->dpy, u->rwin, u->gc, 0, u->radarHeight-1,
  641. X        u->radarWidth-1, u->radarHeight-1);
  642. X    XDrawLine (u->dpy, u->rwin, u->gc, 0, u->radarHeight, 0, 0);
  643. X
  644. X/*
  645. X *  Radar dead?
  646. X */
  647. X
  648. X    if (isFunctioning (c, SYS_RADAR) == 0)
  649. X        return 0;
  650. X
  651. X/*
  652. X *  Radar off?
  653. X */
  654. X
  655. X    if (c->radarMode <= RM_STANDBY) {
  656. X        if (c->radarMode == RM_OFF)
  657. X            buf = "RADAR OFF";
  658. X        else
  659. X            buf = "RADAR STBY";
  660. X        c->curRadarTarget = -1;
  661. X        XDrawString (u->dpy, u->rwin, u->gc, u->rftw * 4,
  662. X            u->fth * 2, buf, strlen(buf));
  663. X        return 0;
  664. X    }
  665. X
  666. X/*
  667. X *  Plot reference lines
  668. X */
  669. X
  670. X    i = (u->radarWidth + 3) / 4;
  671. X    y = u->rfth + 3;
  672. X    XDrawLine (u->dpy, u->rwin, u->gc, xc, y, xc, y+4);
  673. X    y = u->radarHeight - 5 - u->rfth;
  674. X    XDrawLine (u->dpy, u->rwin, u->gc, xc, y, xc, y+4);
  675. X
  676. X    x = xc - i;
  677. X    y = u->rfth + 6;
  678. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x, y+4);
  679. X    y = u->radarHeight - 6 - u->rfth;
  680. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x, y+4);
  681. X    XDrawString (u->dpy, u->rwin, u->gc, x-u->rftw, y+2+u->rfth,
  682. X        thirty, 2);
  683. X
  684. X    x = xc + i;
  685. X    y = u->rfth + 6;
  686. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x, y+4);
  687. X    y = u->radarHeight - 6 - u->rfth;
  688. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x, y+4);
  689. X    XDrawString (u->dpy, u->rwin, u->gc, x-u->rftw, y+2+u->rfth,
  690. X        thirty, 2);
  691. X
  692. X    i = (u->radarHeight + 3) / 4;
  693. X    x = 2;
  694. X    XDrawLine (u->dpy, u->rwin, u->gc, x, yc, x+4, yc);
  695. X    x = u->radarWidth - 6;
  696. X    XDrawLine (u->dpy, u->rwin, u->gc, x, yc, x+4, yc);
  697. X
  698. X    x = 5 + 2 * u->rftw;
  699. X    y = yc - i;
  700. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x+4, y);
  701. X    x = 3;
  702. X    XDrawString (u->dpy, u->rwin, u->gc, x, y+u->rfth/3,
  703. X        thirty, 2);
  704. X    x = u->radarWidth - 6;
  705. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x+4, y);
  706. X
  707. X    x = 5 + 2 * u->rftw;
  708. X    y = yc + i;
  709. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x+4, y);
  710. X    x = 3;
  711. X    XDrawString (u->dpy, u->rwin, u->gc, x, y+u->rfth/3,
  712. X        thirty, 2);
  713. X    x = u->radarWidth - 6;
  714. X    XDrawLine (u->dpy, u->rwin, u->gc, x, y, x+4, y);
  715. X    
  716. X/*
  717. X *  Now plot all targets visible to the radar system.
  718. X */
  719. X
  720. X    for ((i=0, p=ptbl); i<MAXPLAYERS; (++i, ++p)) {
  721. X        if (c->relValid[i] > 0 && c->relPos[i].x >= 0.0) {
  722. X
  723. X            xs = c->relPos[i].y / c->relPos[i].x / scanSlope;
  724. X            ys = c->relPos[i].z / c->relPos[i].x / scanSlope;
  725. X            if (fabs(xs) <= 1.0 && fabs(ys) <= 1.0) {
  726. X                x = xs * (double) xc + xc;
  727. X                y = ys * (double) yc + yc;
  728. X                if (t == i)
  729. X                    plotPrimaryTarget (c, u, i, x, y);
  730. X                else
  731. X                    plotNormalTarget (u, x, y);
  732. X            }
  733. X        }
  734. X    }
  735. X    return 0;
  736. X}
  737. X
  738. Xint isRadarVisible (c, i)
  739. Xcraft *c;
  740. Xint    i; {
  741. X
  742. X    register double d, xs, ys;
  743. X    VPoint    r1;
  744. X
  745. X    if (ptbl[i].type == CT_FREE || i == c->index)
  746. X        return 0;
  747. X
  748. X/*
  749. X *  Is the set on ?
  750. X */
  751. X
  752. X    if (c->radarMode <= RM_STANDBY ||
  753. X        isFunctioning (c, SYS_RADAR) == 0) {
  754. X        ptbl[i].rval[c->index] = 0.0;
  755. X        return 0;
  756. X    }
  757. X
  758. X/*
  759. X *  Calculate the coordinates of the target relative to the craft's frame.
  760. X */
  761. X
  762. X    r1.x = ptbl[i].Sg.x - c->Sg.x;
  763. X    r1.y = ptbl[i].Sg.y - c->Sg.y;
  764. X    r1.z = ptbl[i].Sg.z - c->Sg.z;
  765. X    VTransform (&r1, &(c->Itrihedral), &(c->relPos[i]));
  766. X
  767. X    ptbl[i].rval[c->index] = 0.0;
  768. X
  769. X    if (c->relPos[i].x <= 0.0)
  770. X        return 0;
  771. X
  772. X    d = c->relPos[i].x * scanSlope;
  773. X    xs = c->relPos[i].y / d;
  774. X    ys = c->relPos[i].z / d;
  775. X
  776. X/*
  777. X *  if the absolute values of xs and ys are both less than 1.0, then
  778. X *  we are painting this target with radar energy.  Estimate the value of
  779. X *  the energy that the target sees.
  780. X */
  781. X
  782. X    if ((fabs(xs) <= 1.0) && (fabs(ys) <= 1.0)) {
  783. X        d = mag(c->relPos[i]);
  784. X        ptbl[i].rval[c->index] = c->cinfo->radarOutput / (d * d);
  785. X        if (d >= c->cinfo->radarDRange)
  786. X            return 0;
  787. X        else if (d >= c->cinfo->radarTRange)
  788. X            return 1;
  789. X        else
  790. X            return 2;
  791. X    }
  792. X    else
  793. X        return 0;
  794. X
  795. X}
  796. X
  797. Xint getRadarTarget (c, new)
  798. Xcraft     *c;
  799. Xint    new; {
  800. X
  801. X    register int    i, minID;
  802. X    register double minD, d;
  803. X
  804. X    for (i=0; i<MAXPLAYERS; ++i)
  805. X        c->relValid[i] = isRadarVisible(c, i);
  806. X
  807. X    if (new == 0) {
  808. X        i = c->curRadarTarget;
  809. X        if (i != -1 && c->relValid[i] != 0)
  810. X            return i;
  811. X    }
  812. X
  813. X    minD = 1000.0 * NM;
  814. X    minID = -1;
  815. X    for (i=0; i<MAXPLAYERS; ++i) {
  816. X        if (c->relValid[i] == 2) {
  817. X            if (new == 1 && i == c->curRadarTarget)
  818. X                continue;
  819. X            d = mag (c->relPos[i]);
  820. X            if (d < minD) {
  821. X                minD = d;
  822. X                minID = i;
  823. X            }
  824. X        }
  825. X    }
  826. X
  827. X    return minID;
  828. X}
  829. X
  830. Xvoid doDroneRadar (c)
  831. Xcraft *c; {
  832. X
  833. X    register int i;
  834. X
  835. X    for (i=0; i<MAXPLAYERS; ++i)
  836. X        (void) isRadarVisible(c, i);
  837. X}
  838. X
  839. Xvoid plotNormalTarget (u, x, y)
  840. Xviewer *u;
  841. Xint    x, y; {
  842. X
  843. X    XDrawLine (u->dpy, u->rwin, u->gc, x-2, y-2, x-2, y+2);
  844. X    XDrawLine (u->dpy, u->rwin, u->gc, x-2, y+2, x+2, y+2);
  845. X    XDrawLine (u->dpy, u->rwin, u->gc, x+2, y+2, x+2, y-2);
  846. X    XDrawLine (u->dpy, u->rwin, u->gc, x+2, y-2, x-2, y-2);
  847. X}
  848. X
  849. Xextern double heading();
  850. X
  851. Xvoid plotPrimaryTarget (c, u, i, x, y)
  852. Xcraft  *c;
  853. Xviewer *u;
  854. Xint    i;
  855. Xint    x, y; {
  856. X
  857. X    int    xp, yp;
  858. X    char    s[16];
  859. X    VPoint    rel, deltaV;
  860. X    double    d, cl;
  861. X
  862. X    xp = 150 * u->radarWidth / RADAR_WINDOW_WIDTH;
  863. X    yp = 150 * u->radarHeight / RADAR_WINDOW_HEIGHT;
  864. X
  865. X    XFillRectangle (u->dpy, u->rwin, u->gc, x-3, y-3, 7, 7);
  866. X
  867. X/*
  868. X *  Heading of target
  869. X */
  870. X
  871. X    sprintf (s, "  %3.3d \007", (int) (RADtoDEG(ptbl[i].curHeading)));
  872. X    XDrawString (u->dpy, u->rwin, u->gc, xp, yp, s, strlen(s));
  873. X
  874. X/*
  875. X *  Relative heading to target.
  876. X */
  877. X
  878. X    rel.x = ptbl[i].Sg.x - c->Sg.x;
  879. X    rel.y = ptbl[i].Sg.y - c->Sg.y;
  880. X    rel.z = ptbl[i].Sg.z - c->Sg.z;
  881. X    sprintf (s, "  %3.3d R", (int) RADtoDEG(heading(&rel)));
  882. X    XDrawString (u->dpy, u->rwin, u->gc, xp, yp+u->rfth, s, strlen(s));
  883. X
  884. X/*
  885. X *  Closure rate
  886. X */
  887. X
  888. X    deltaV.x = ptbl[i].Cg.x - c->Cg.x;
  889. X    deltaV.y = ptbl[i].Cg.y - c->Cg.y;
  890. X    deltaV.z = ptbl[i].Cg.z - c->Cg.z;
  891. X    d = mag (rel);
  892. X    cl = - (deltaV.x * rel.x + deltaV.y * rel.y + deltaV.z + rel.z) /
  893. X        d / NM * 3600.0;
  894. X    c->targetDistance = d;
  895. X    c->targetClosure = cl;
  896. X    sprintf (s, "%5d C", (int)cl);
  897. X    XDrawString (u->dpy, u->rwin, u->gc, xp, yp+2*u->rfth, s, strlen(s));
  898. X
  899. X/*
  900. X *  Range to target
  901. X */
  902. X
  903. X    xp = 40 * u->radarWidth / RADAR_WINDOW_WIDTH;
  904. X    yp = u->rfth + 4;    
  905. X    sprintf (s, "%d", (int) (d / NM));
  906. X    XDrawString (u->dpy, u->rwin, u->gc, xp, yp, s, strlen(s));
  907. X
  908. X/*
  909. X *  Altitude of target
  910. X */
  911. X
  912. X    xp = 150 * u->radarWidth / RADAR_WINDOW_WIDTH;
  913. X    yp = u->rfth + 4;    
  914. X    sprintf (s, "%d", (int) (- ptbl[i].Sg.z / 1000.0));
  915. X    XDrawString (u->dpy, u->rwin, u->gc, xp, yp, s, strlen(s));
  916. X}
  917. X
  918. X/*
  919. X *  doTEWS :  update the threat display for player i.
  920. X */
  921. X
  922. Xvoid doTEWS (c, u)
  923. Xcraft    *c;
  924. Xviewer    *u; {
  925. X
  926. X    register int    i, x, y;
  927. X    VPoint    rel, tmp;
  928. X    double    m, unit;
  929. X
  930. X    XSetForeground (u->dpy, u->gc, u->v->flags & VPMono ?
  931. X            BlackPixel(u->v->dpy, u->v->screen) :
  932. X            u->v->pixel[blackPixel]);
  933. X    XFillRectangle (u->dpy, u->win, u->gc, u->TEWSx-u->TEWSSize/2,
  934. X        u->TEWSy-u->TEWSSize/2, u->TEWSSize, u->TEWSSize);
  935. X    XSetForeground (u->dpy, u->gc, u->v->flags & VPMono ?
  936. X            WhitePixel(u->v->dpy, u->v->screen) :
  937. X            u->v->pixel[whitePixel]);
  938. X
  939. X    XDrawArc(u->dpy, u->win, u->gc, u->TEWSx-u->TEWSSize/2,
  940. X        u->TEWSy-u->TEWSSize/2, u->TEWSSize, u->TEWSSize,
  941. X        0, 360*64);
  942. X
  943. X    for (i=0; i<MAXPLAYERS; ++i) {
  944. X
  945. X        if (c->index == i)
  946. X            continue;
  947. X
  948. X        if (c->rval[i] > c->cinfo->TEWSThreshold) {
  949. X            tmp.x = ptbl[i].Sg.x - c->Sg.x;
  950. X            tmp.y = ptbl[i].Sg.y - c->Sg.y;
  951. X            tmp.z = ptbl[i].Sg.z - c->Sg.z;
  952. X            VTransform (&tmp, &(c->Itrihedral), &(rel));
  953. X            m = mag(rel);
  954. X            rel.x /= m;
  955. X            rel.y /= m;
  956. X            rel.z /= m;
  957. X            unit = sqrt (rel.x * rel.x + rel.y * rel.y);
  958. X            if (unit == 0.0) {
  959. X                rel.x = 1.0;
  960. X                rel.y = 0.0;
  961. X            }
  962. X            x = u->TEWSx + (int) (rel.y * u->TEWSSize * 0.4 / unit);
  963. X            y = u->TEWSy - (int) (rel.x * u->TEWSSize * 0.4 / unit);
  964. X            if (c->team == ptbl[i].team) {
  965. X                XDrawLine (u->dpy, u->win, u->gc, x-2, y-2, x-2, y+2);
  966. X                XDrawLine (u->dpy, u->win, u->gc, x-2, y+2, x+2, y+2);
  967. X                XDrawLine (u->dpy, u->win, u->gc, x+2, y+2, x+2, y-2);
  968. X                XDrawLine (u->dpy, u->win, u->gc, x+2, y-2, x-2, y-2);
  969. X            }
  970. X            else
  971. X                XFillRectangle (u->dpy, u->win, u->gc, x-3, y-3, 7, 7);
  972. X        }
  973. X    }
  974. X}
  975. END_OF_FILE
  976. if test 9804 -ne `wc -c <'acm/fsim/doRadar.c'`; then
  977.     echo shar: \"'acm/fsim/doRadar.c'\" unpacked with wrong size!
  978. fi
  979. # end of 'acm/fsim/doRadar.c'
  980. fi
  981. if test -f 'acm/fsim/newPlane.c' -a "${1}" != "-c" ; then 
  982.   echo shar: Will not clobber existing file \"'acm/fsim/newPlane.c'\"
  983. else
  984. echo shar: Extracting \"'acm/fsim/newPlane.c'\" \(9352 characters\)
  985. sed "s/^X//" >'acm/fsim/newPlane.c' <<'END_OF_FILE'
  986. X/*
  987. X *    xflight : an aerial combat simulator for X
  988. X *
  989. X *    Written by Riley Rainey,  riley@mips.com
  990. X *
  991. X *    Permission to use, copy, modify and distribute (without charge) this
  992. X *    software, documentation, images, etc. is granted, provided that this 
  993. X *    comment and the author's name is retained.
  994. X *
  995. X */
  996. X 
  997. X#include "pm.h"
  998. X#include <stdio.h>
  999. X#include <string.h>
  1000. X
  1001. Xstatic craftType ctype[MAXCRAFTTYPES];
  1002. X
  1003. Xextern FILE * acm_fopen ();
  1004. X
  1005. XcraftType *lookupCraft (name)
  1006. Xchar * name; 
  1007. X{
  1008. X    int    i;
  1009. X
  1010. X    for (i=0; i<MAXCRAFTTYPES; ++i)
  1011. X        if (ctype[i].name != (char *) NULL)
  1012. X        if (strcmp(name, ctype[i].name) == 0)
  1013. X            return &ctype[i];
  1014. X
  1015. X    return (craftType *) NULL;
  1016. X}
  1017. X
  1018. XcraftType *newCraft () {
  1019. X
  1020. X    int    i;
  1021. X    
  1022. X    for (i=0; i<MAXCRAFTTYPES; ++i)
  1023. X        if (ctype[i].name == (char *) NULL) {
  1024. X            ctype[i].name = "*allocated*";
  1025. X            return &ctype[i];
  1026. X        }
  1027. X
  1028. X    return (craftType *) NULL;
  1029. X}
  1030. X
  1031. Xstatic struct {
  1032. X    double mach;
  1033. X    double Cdi;
  1034. X    } *p, cdTable[] = {
  1035. X        { 0.0, 0.02 },
  1036. X        { 0.2, 0.02 },
  1037. X        { 0.95, 0.015},
  1038. X        { 1.05, 0.045},
  1039. X        { 2.0,  0.03 },
  1040. X        { 10.0, 0.03 }
  1041. X    };
  1042. X
  1043. Xstatic double CDi (c)
  1044. Xcraft *c; {
  1045. X
  1046. X    register double    b, deltaMach;
  1047. X
  1048. X    for (p=cdTable; c->mach>(p+1)->mach; ++p) ;
  1049. X    deltaMach = (p+1)->mach - p->mach;
  1050. X    b = ((p+1)->Cdi - p->Cdi) / deltaMach;
  1051. X    return p->Cdi + b * (c->mach - p->mach);
  1052. X}
  1053. X
  1054. Xvoid initf16 () {
  1055. X
  1056. X    FILE        *f;
  1057. X    craftType    *c;
  1058. X
  1059. X    c = newCraft();
  1060. X    c->name = strdup("f-16c");
  1061. X    c->CLOrigin = 0.129871;
  1062. X
  1063. X    c->CLSlope = 4.0;
  1064. X
  1065. X    c->CLNegStall = DEGtoRAD (-17.0);
  1066. X    c->CLPosStall = DEGtoRAD (30.0);
  1067. X
  1068. X    c->aspectRatio = 3.0;
  1069. X
  1070. X    c->CDOrigin = 0.03642;
  1071. X    c->CDi = CDi;
  1072. X    c->CDFactor = -2.54200;
  1073. X    c->CDPhase = 0.0349066;
  1074. X
  1075. X    c->CDBOrigin = 1.0;
  1076. X    c->CDBFactor = -1.0;
  1077. X    c->CDBPhase = 0.0;
  1078. X
  1079. X    c->CLbeta = -0.2;
  1080. X
  1081. X    c->CMOrigin = 0.0;
  1082. X    c->CMFactor = -0.95;
  1083. X
  1084. X    c->CNOrigin = 0.0;
  1085. X    c->CNFactor = -7.50;    /* based on 60 ft^2 tail; CLa = 1.0; Ivx = 15 ft */
  1086. X
  1087. X    c->CYbeta = -1.5;
  1088. X
  1089. X    c->effElevator = 0.40;
  1090. X    c->effAileron = 0.20;
  1091. X    c->effRudder = 0.35;
  1092. X
  1093. X    c->maxFlap = DEGtoRAD (40.0);    /* 40 degree maximum flap setting */
  1094. X    c->cFlap = 0.64279;        /* yields Clift of 1.0 at max extension */
  1095. X    c->cFlapDrag = 0.0467;        /* yields 0.03 of extra drag at max ext */
  1096. X    c->flapRate = 0.1745;        /* about 4 seconds to fully extend flaps */
  1097. X
  1098. X    c->maxSpeedBrake = DEGtoRAD (80.0);
  1099. X    c->cSpeedBrake = 0.03;        /* drag coefficient added by speed brakes */
  1100. X    c->speedBrakeRate = DEGtoRAD (40.0); /* about 2.0 seconds to fully extend */
  1101. X    c->speedBrakeIncr = DEGtoRAD (80.0); /* one keystoke means full extension */
  1102. X
  1103. X    VIdentMatrix(&(c->I));
  1104. X
  1105. X    c->I.m[0][0] =  7240.7;
  1106. X    c->I.m[1][1] = 49785.9;
  1107. X    c->I.m[2][2] = 54389.5;
  1108. X
  1109. X    c->LDamp = 40000.0;
  1110. X    c->MDamp = -0.6;
  1111. X    c->NDamp = -0.6;
  1112. X
  1113. X    c->cmSlope = -2.00;
  1114. X    c->cmFactor = -1.30;
  1115. X    c->cnSlope = -1.30;
  1116. X    c->cnFactor = -1.00;
  1117. X    c->betaStall = DEGtoRAD (15.0);
  1118. X
  1119. X    c->wingS = 300.0;
  1120. X    c->emptyWeight = 14576.0;
  1121. X    c->maxFuel = 6972.0;
  1122. X
  1123. X/*
  1124. X * Engine data for F100-PW-100
  1125. X * source "Modern Combat Aircraft Design", Klaus Huenecke
  1126. X */
  1127. X
  1128. X    c->maxThrust = 14080.0;
  1129. X    c->maxABThrust = 23540.0;
  1130. X    c->spFuelConsump = 0.68;
  1131. X    c->spABFuelConsump = 2.55;
  1132. X
  1133. X    c->groundingPoint.x = 0.0;
  1134. X    c->groundingPoint.y = 0.0;
  1135. X    c->groundingPoint.z = 6.0;
  1136. X    c->viewPoint.x = 12.5;
  1137. X    c->viewPoint.y = 0.0;
  1138. X    c->viewPoint.z = -3.0;
  1139. X    c->crashC = 90.0;
  1140. X
  1141. X    c->sCount = 3;
  1142. X    c->wStation[0].x = 7.0;
  1143. X    c->wStation[0].y = -4.0;
  1144. X    c->wStation[0].z = 0.0;
  1145. X    c->wStation[1].x = 0.357;
  1146. X    c->wStation[1].y = 15.6;
  1147. X    c->wStation[1].z = 0.0;
  1148. X    c->wStation[2].x = 0.357;
  1149. X    c->wStation[2].y = -15.6;
  1150. X    c->wStation[2].z = 0.0;
  1151. X
  1152. X    c->muStatic = 0.08;
  1153. X    c->muKinetic = 0.05;
  1154. X    c->muBStatic = 0.7;
  1155. X    c->muBKinetic = 0.6;
  1156. X
  1157. X    c->maxNWDef = 1.27; /* 72.7 degrees */
  1158. X    c->NWIncr = 1.27 / 32.0;
  1159. X    c->maxNWS = 85.0 * 6076.0 / 3600.0;
  1160. X    c->gearD1 = 13.5;
  1161. X    c->gearD2 = -2.5;
  1162. X    f = acm_fopen ("f16", "r");
  1163. X    c->object = VReadObject(f);
  1164. X    fclose (f);
  1165. X
  1166. X    c->TEWSThreshold = 0.0;        /* zero, for now */
  1167. X    c->radarOutput = 15000.0;    /* estimated */
  1168. X    c->radarDRange = 80.0 * NM;
  1169. X    c->radarTRange = 60.0 * NM;
  1170. X
  1171. X    c->placeProc = NULL;
  1172. X
  1173. X    c->damageBits = SYS_NODAMAGE;
  1174. X    c->damageBits &= ~ SYS_ENGINE2;
  1175. X    c->structurePts = 15;
  1176. X
  1177. X}
  1178. X
  1179. Xvoid initmig23 () {
  1180. X
  1181. X    FILE        *f;
  1182. X    craftType    *c;
  1183. X
  1184. X    c = newCraft();
  1185. X    c->name = strdup("mig-23");
  1186. X    c->CLOrigin = 0.129871;
  1187. X    c->CLSlope = 3.9;
  1188. X    c->CLNegStall = -17.0 * pi / 180.0;
  1189. X    c->CLPosStall =  26.0 * pi / 180.0;
  1190. X
  1191. X    c->aspectRatio = 2.27;
  1192. X
  1193. X    c->CDOrigin = 0.03642;
  1194. X    c->CDi = CDi;
  1195. X    c->CDFactor = -2.54200;
  1196. X    c->CDPhase = 0.0349066;
  1197. X
  1198. X    c->CDBOrigin = 1.0;
  1199. X    c->CDBFactor = -1.0;
  1200. X    c->CDBPhase = 0.0;
  1201. X
  1202. X    c->CLbeta = -0.2;
  1203. X
  1204. X    c->CMOrigin = 0.0;
  1205. X    c->CMFactor = -0.95;
  1206. X
  1207. X    c->CNOrigin = 0.0;
  1208. X    c->CNFactor = -0.90;
  1209. X
  1210. X    c->CYbeta = -1.3;
  1211. X
  1212. X    c->effElevator = 0.40;
  1213. X    c->effAileron = 0.20;
  1214. X    c->effRudder = 0.35;
  1215. X
  1216. X    c->maxFlap = 40.0 * pi / 180.0;    /* 40 degree maximum flap setting */
  1217. X    c->cFlap = 0.64279;        /* yields Clift of 1.0 at max extension */
  1218. X    c->flapRate = 0.1745;        /* about 4 seconds to fully extend flaps */
  1219. X
  1220. X    c->maxSpeedBrake = DEGtoRAD (80.0);
  1221. X    c->cSpeedBrake = 0.03;        /* drag coefficient added by speed brakes */
  1222. X    c->speedBrakeRate = DEGtoRAD (40.0); /* about 0.25 seconds to fully extend */
  1223. X    c->speedBrakeIncr = DEGtoRAD (80.0); /* one keystoke means full extension */
  1224. X
  1225. X    VIdentMatrix(&(c->I));
  1226. X    c->I.m[0][0] =  9000.0;
  1227. X    c->I.m[1][1] = 75000.0;
  1228. X    c->I.m[2][2] = 95000.0;
  1229. X
  1230. X    c->LDamp =  50000.0;
  1231. X    c->MDamp = -0.2;
  1232. X    c->NDamp = -0.4;
  1233. X
  1234. X    c->cmSlope = -1.80;
  1235. X    c->cmFactor = -1.30;
  1236. X    c->cnSlope = -1.30;
  1237. X    c->cnFactor = -1.00;
  1238. X    c->betaStall = DEGtoRAD (15.0);
  1239. X
  1240. X    c->wingS = 325.0;
  1241. X    c->emptyWeight = 25000.0;
  1242. X    c->maxFuel = 9914.0;
  1243. X/*
  1244. X * Engine data for Tumansky R-29B
  1245. X * source "Modern Fighter Combat"
  1246. X */
  1247. X
  1248. X    c->maxThrust = 17635.0;
  1249. X    c->maxABThrust = 25350.0;
  1250. X    c->spFuelConsump = 0.68;
  1251. X    c->spABFuelConsump = 2.55;
  1252. X
  1253. X    c->groundingPoint.x = 0.0;
  1254. X    c->groundingPoint.y = 0.0;
  1255. X    c->groundingPoint.z = 6.0;
  1256. X    c->viewPoint.x = 12.5;
  1257. X    c->viewPoint.y = 0.0;
  1258. X    c->viewPoint.z = -3.0;
  1259. X    c->crashC = 90.0;
  1260. X
  1261. X    c->sCount = 3;
  1262. X    c->wStation[0].x = 7.0;
  1263. X    c->wStation[0].y = -4.0;
  1264. X    c->wStation[0].z = 0.0;
  1265. X    c->wStation[1].x = 0.357;
  1266. X    c->wStation[1].y = 15.6;
  1267. X    c->wStation[1].z = 0.0;
  1268. X    c->wStation[2].x = 0.357;
  1269. X    c->wStation[2].y = -15.6;
  1270. X    c->wStation[2].z = 0.0;
  1271. X
  1272. X    c->muStatic = 0.08;
  1273. X    c->muKinetic = 0.05;
  1274. X    c->muBStatic = 0.7;
  1275. X    c->muBKinetic = 0.6;
  1276. X
  1277. X    c->maxNWDef = 1.27; /* 72.7 degrees */
  1278. X    c->NWIncr = 1.27 / 32.0;
  1279. X    c->maxNWS = 100.0 * 6076.0 / 3600.0;
  1280. X    c->gearD1 = 13.5;
  1281. X    c->gearD2 = -2.5;
  1282. X    f = acm_fopen ("mig23", "r");
  1283. X    c->object = VReadObject(f);
  1284. X    fclose (f);
  1285. X    
  1286. X    c->TEWSThreshold = 0.0;        /* zero, for now */
  1287. X    c->radarOutput = 15000.0;    /* estimated */
  1288. X    c->radarDRange = 80.0 * NM;
  1289. X    c->radarTRange = 30.0 * NM;
  1290. X
  1291. X    c->placeProc = NULL;
  1292. X
  1293. X    c->damageBits = SYS_NODAMAGE;
  1294. X    c->damageBits &= ~ SYS_ENGINE2;
  1295. X    c->structurePts = 19;
  1296. X
  1297. X}
  1298. X
  1299. Xextern void initPanel();
  1300. X
  1301. Xint newPlane(planeType)
  1302. Xchar *planeType; {
  1303. X
  1304. X    int     i, j;
  1305. X    craft    *c;
  1306. X
  1307. X    for (i=0; i<MAXPLAYERS; ++i) {
  1308. X        if (ptbl[i].type == CT_FREE) {
  1309. X
  1310. X            c = &ptbl[i];
  1311. X            c->type = CT_PLANE;
  1312. X            c->cinfo = lookupCraft (planeType);
  1313. X            c->fuel = c->cinfo->maxFuel;
  1314. X
  1315. X            c->Cg.x = 0.0;
  1316. X            c->Cg.y = 0.0;
  1317. X            c->Cg.z = 0.0;
  1318. X            c->Sg.x = 90.0;
  1319. X            c->Sg.y = 0.0;
  1320. X            c->Sg.z = - c->cinfo->groundingPoint.z;
  1321. X            c->prevSg = c->Sg;
  1322. X
  1323. X            c->p = c->q = c->r = 0.0;
  1324. X            c->Se = c->Sr = c->Sa = 0.0;
  1325. X
  1326. X            c->throttle = 8192;
  1327. X            c->curThrust = calcThrust (c);
  1328. X            c->curFlap = 0.0;
  1329. X            c->flapSetting = 0.0;
  1330. X            c->curSpeedBrake = 0.0;
  1331. X            c->speedBrakeSetting = 0.0;
  1332. X            c->curHeading = c->curPitch = c->curRoll = 0.0;
  1333. X            VIdentMatrix(&(c->trihedral));
  1334. X            c->Itrihedral = c->trihedral;
  1335. X            c->groundContact = 1;
  1336. X            c->curNWDef = 0.0;
  1337. X            c->flags = FL_NWS;
  1338. X            c->radarMode = RM_NORMAL;
  1339. X            c->curRadarTarget = -1;
  1340. X            c->viewDirection.x = 1.0;
  1341. X            c->viewDirection.y = 0.0;
  1342. X            c->viewDirection.z = 0.0;
  1343. X            c->viewUp.x = 0.0;
  1344. X            c->viewUp.y = 0.0;
  1345. X            c->viewUp.z = -1.0;
  1346. X            for (j=0; j<3; ++j) {
  1347. X                c->leftHUD[j] = Vmalloc (32);
  1348. X                c->rightHUD[j] = Vmalloc (32);
  1349. X            }
  1350. X
  1351. X            c->curWeapon = WEAPONTYPES - 1;
  1352. X            selectWeapon (c);
  1353. X
  1354. X/* a trick to select a valid weapon */
  1355. X
  1356. X/*
  1357. X * give the player 8 Sidewinders and a cannon.
  1358. X */
  1359. X
  1360. X            c->station[0].type = WK_M61A1;
  1361. X            c->station[0].info = 500;
  1362. X            c->station[0].info2 = 0;
  1363. X            c->station[0].info3 = 0;
  1364. X            c->station[1].type = WK_AIM9M;
  1365. X            c->station[2].type = WK_AIM9M;
  1366. X            c->station[3].type = WK_AIM9M;
  1367. X            c->station[4].type = WK_AIM9M;
  1368. X            c->station[5].type = WK_AIM9M;
  1369. X            c->station[6].type = WK_AIM9M;
  1370. X            c->station[7].type = WK_AIM9M;
  1371. X            c->station[8].type = WK_AIM9M;
  1372. X            initDamage (c);
  1373. X            initPanel (c);
  1374. X            break;            
  1375. X        }
  1376. X    }
  1377. X
  1378. X    if (i == MAXPLAYERS)
  1379. X        return -1;
  1380. X
  1381. X    return i;
  1382. X}
  1383. X
  1384. Xint newDrone(p)
  1385. Xcraft *p; {
  1386. X
  1387. X
  1388. X    int     i, j;
  1389. X    craft    *c;
  1390. X    VPoint    s;
  1391. X
  1392. X    for (i=0; i<MAXPLAYERS; ++i) {
  1393. X        if (ptbl[i].type == CT_FREE) {
  1394. X
  1395. X            c = &ptbl[i];
  1396. X            *c = *p;
  1397. X
  1398. X            c->index = i;
  1399. X            c->team = i;
  1400. X
  1401. X            c->vl = NULL;
  1402. X            c->type = CT_DRONE;
  1403. X            c->cinfo = lookupCraft ("f-16c");
  1404. X
  1405. X/*
  1406. X *  Position the drone 200 feet ahead of the player's craft.
  1407. X */
  1408. X
  1409. X            s.x = 5400.0;
  1410. X            s.y = 2030.0;
  1411. X            s.z = 0.0;
  1412. X            VTransform (&s, &(p->trihedral), &(c->Sg));
  1413. X            c->Sg.x += p->Sg.x;
  1414. X            c->Sg.y += p->Sg.y;
  1415. X            c->Sg.z += p->Sg.z;
  1416. X            c->prevSg = c->Sg;
  1417. X
  1418. X/*            c->p = c->q = c->r = 0.0;
  1419. X            c->Se = c->Sr = c->Sa = 0.0;
  1420. X
  1421. X            c->throttle = 8192;
  1422. X            c->curThrust = calcThrust (c);
  1423. X            c->curHeading = c->curPitch = c->curRoll = 0.0;
  1424. X            VIdentMatrix(&(c->trihedral));
  1425. X            c->Itrihedral = c->trihedral;
  1426. X*/
  1427. X            c->groundContact = 0;
  1428. X            c->curNWDef = 0.0;
  1429. X            c->flags = 0;
  1430. X            c->radarMode = RM_NORMAL;
  1431. X
  1432. X            for (j=0; j<3; ++j) 
  1433. X                c->leftHUD[j] = c->rightHUD[j] = NULL;
  1434. X
  1435. X            break;            
  1436. X        }
  1437. X    }
  1438. X
  1439. X    if (i == MAXPLAYERS)
  1440. X        return -1;
  1441. X
  1442. X    return i;
  1443. X}
  1444. END_OF_FILE
  1445. if test 9352 -ne `wc -c <'acm/fsim/newPlane.c'`; then
  1446.     echo shar: \"'acm/fsim/newPlane.c'\" unpacked with wrong size!
  1447. fi
  1448. # end of 'acm/fsim/newPlane.c'
  1449. fi
  1450. if test -f 'acm/fsim/rwy' -a "${1}" != "-c" ; then 
  1451.   echo shar: Will not clobber existing file \"'acm/fsim/rwy'\"
  1452. else
  1453. echo shar: Extracting \"'acm/fsim/rwy'\" \(8674 characters\)
  1454. sed "s/^X//" >'acm/fsim/rwy' <<'END_OF_FILE'
  1455. X*runway-with-lines
  1456. X216 54
  1457. X1 0.000000 -75.000000 0.000000
  1458. X2 12000.000000 -75.000000 0.000000
  1459. X3 12000.000000 75.000000 0.000000
  1460. X4 0.000000 75.000000 0.000000
  1461. X5 0.000000 -75.000000 0.000000
  1462. X6 12000.000000 -75.000000 0.000000
  1463. X7 12000.000000 -72.000000 0.000000
  1464. X8 0.000000 -72.000000 0.000000
  1465. X9 0.000000 75.000000 0.000000
  1466. X10 12000.000000 75.000000 0.000000
  1467. X11 12000.000000 72.000000 0.000000
  1468. X12 0.000000 72.000000 0.000000
  1469. X13 1000.000000 -68.000000 0.000000
  1470. X14 1125.000000 -68.000000 0.000000
  1471. X15 1125.000000 -45.500000 0.000000
  1472. X16 1000.000000 -45.500000 0.000000
  1473. X17 1000.000000 68.000000 0.000000
  1474. X18 1125.000000 68.000000 0.000000
  1475. X19 1125.000000 45.500000 0.000000
  1476. X20 1000.000000 45.500000 0.000000
  1477. X21 11000.000000 -68.000000 0.000000
  1478. X22 10875.000000 -68.000000 0.000000
  1479. X23 10875.000000 -45.500000 0.000000
  1480. X24 11000.000000 -45.500000 0.000000
  1481. X25 11000.000000 68.000000 0.000000
  1482. X26 10875.000000 68.000000 0.000000
  1483. X27 10875.000000 45.500000 0.000000
  1484. X28 11000.000000 45.500000 0.000000
  1485. X29 4.000000 -68.000000 0.000000
  1486. X30 129.000000 -68.000000 0.000000
  1487. X31 129.000000 -56.444443 0.000000
  1488. X32 4.000000 -56.444443 0.000000
  1489. X33 4.000000 -52.444443 0.000000
  1490. X34 129.000000 -52.444443 0.000000
  1491. X35 129.000000 -40.888889 0.000000
  1492. X36 4.000000 -40.888889 0.000000
  1493. X37 4.000000 -36.888889 0.000000
  1494. X38 129.000000 -36.888889 0.000000
  1495. X39 129.000000 -25.333334 0.000000
  1496. X40 4.000000 -25.333334 0.000000
  1497. X41 4.000000 -21.333334 0.000000
  1498. X42 129.000000 -21.333334 0.000000
  1499. X43 129.000000 -9.777778 0.000000
  1500. X44 4.000000 -9.777778 0.000000
  1501. X45 4.000000 9.777778 0.000000
  1502. X46 129.000000 9.777778 0.000000
  1503. X47 129.000000 21.333334 0.000000
  1504. X48 4.000000 21.333334 0.000000
  1505. X49 4.000000 25.333334 0.000000
  1506. X50 129.000000 25.333334 0.000000
  1507. X51 129.000000 36.888889 0.000000
  1508. X52 4.000000 36.888889 0.000000
  1509. X53 4.000000 40.888889 0.000000
  1510. X54 129.000000 40.888889 0.000000
  1511. X55 129.000000 52.444443 0.000000
  1512. X56 4.000000 52.444443 0.000000
  1513. X57 4.000000 56.444443 0.000000
  1514. X58 129.000000 56.444443 0.000000
  1515. X59 129.000000 68.000000 0.000000
  1516. X60 4.000000 68.000000 0.000000
  1517. X61 11996.000000 -68.000000 0.000000
  1518. X62 11871.000000 -68.000000 0.000000
  1519. X63 11871.000000 -56.444443 0.000000
  1520. X64 11996.000000 -56.444443 0.000000
  1521. X65 11996.000000 -52.444443 0.000000
  1522. X66 11871.000000 -52.444443 0.000000
  1523. X67 11871.000000 -40.888889 0.000000
  1524. X68 11996.000000 -40.888889 0.000000
  1525. X69 11996.000000 -36.888889 0.000000
  1526. X70 11871.000000 -36.888889 0.000000
  1527. X71 11871.000000 -25.333334 0.000000
  1528. X72 11996.000000 -25.333334 0.000000
  1529. X73 11996.000000 -21.333334 0.000000
  1530. X74 11871.000000 -21.333334 0.000000
  1531. X75 11871.000000 -9.777778 0.000000
  1532. X76 11996.000000 -9.777778 0.000000
  1533. X77 11996.000000 9.777778 0.000000
  1534. X78 11871.000000 9.777778 0.000000
  1535. X79 11871.000000 21.333334 0.000000
  1536. X80 11996.000000 21.333334 0.000000
  1537. X81 11996.000000 25.333334 0.000000
  1538. X82 11871.000000 25.333334 0.000000
  1539. X83 11871.000000 36.888889 0.000000
  1540. X84 11996.000000 36.888889 0.000000
  1541. X85 11996.000000 40.888889 0.000000
  1542. X86 11871.000000 40.888889 0.000000
  1543. X87 11871.000000 52.444443 0.000000
  1544. X88 11996.000000 52.444443 0.000000
  1545. X89 11996.000000 56.444443 0.000000
  1546. X90 11871.000000 56.444443 0.000000
  1547. X91 11871.000000 68.000000 0.000000
  1548. X92 11996.000000 68.000000 0.000000
  1549. X93 258.000000 -2.000000 0.000000
  1550. X94 383.000000 -2.000000 0.000000
  1551. X95 383.000000 2.000000 0.000000
  1552. X96 258.000000 2.000000 0.000000
  1553. X97 633.000000 -2.000000 0.000000
  1554. X98 758.000000 -2.000000 0.000000
  1555. X99 758.000000 2.000000 0.000000
  1556. X100 633.000000 2.000000 0.000000
  1557. X101 1008.000000 -2.000000 0.000000
  1558. X102 1133.000000 -2.000000 0.000000
  1559. X103 1133.000000 2.000000 0.000000
  1560. X104 1008.000000 2.000000 0.000000
  1561. X105 1383.000000 -2.000000 0.000000
  1562. X106 1508.000000 -2.000000 0.000000
  1563. X107 1508.000000 2.000000 0.000000
  1564. X108 1383.000000 2.000000 0.000000
  1565. X109 1758.000000 -2.000000 0.000000
  1566. X110 1883.000000 -2.000000 0.000000
  1567. X111 1883.000000 2.000000 0.000000
  1568. X112 1758.000000 2.000000 0.000000
  1569. X113 2133.000000 -2.000000 0.000000
  1570. X114 2258.000000 -2.000000 0.000000
  1571. X115 2258.000000 2.000000 0.000000
  1572. X116 2133.000000 2.000000 0.000000
  1573. X117 2508.000000 -2.000000 0.000000
  1574. X118 2633.000000 -2.000000 0.000000
  1575. X119 2633.000000 2.000000 0.000000
  1576. X120 2508.000000 2.000000 0.000000
  1577. X121 2883.000000 -2.000000 0.000000
  1578. X122 3008.000000 -2.000000 0.000000
  1579. X123 3008.000000 2.000000 0.000000
  1580. X124 2883.000000 2.000000 0.000000
  1581. X125 3258.000000 -2.000000 0.000000
  1582. X126 3383.000000 -2.000000 0.000000
  1583. X127 3383.000000 2.000000 0.000000
  1584. X128 3258.000000 2.000000 0.000000
  1585. X129 3633.000000 -2.000000 0.000000
  1586. X130 3758.000000 -2.000000 0.000000
  1587. X131 3758.000000 2.000000 0.000000
  1588. X132 3633.000000 2.000000 0.000000
  1589. X133 4008.000000 -2.000000 0.000000
  1590. X134 4133.000000 -2.000000 0.000000
  1591. X135 4133.000000 2.000000 0.000000
  1592. X136 4008.000000 2.000000 0.000000
  1593. X137 4383.000000 -2.000000 0.000000
  1594. X138 4508.000000 -2.000000 0.000000
  1595. X139 4508.000000 2.000000 0.000000
  1596. X140 4383.000000 2.000000 0.000000
  1597. X141 4758.000000 -2.000000 0.000000
  1598. X142 4883.000000 -2.000000 0.000000
  1599. X143 4883.000000 2.000000 0.000000
  1600. X144 4758.000000 2.000000 0.000000
  1601. X145 5133.000000 -2.000000 0.000000
  1602. X146 5258.000000 -2.000000 0.000000
  1603. X147 5258.000000 2.000000 0.000000
  1604. X148 5133.000000 2.000000 0.000000
  1605. X149 5508.000000 -2.000000 0.000000
  1606. X150 5633.000000 -2.000000 0.000000
  1607. X151 5633.000000 2.000000 0.000000
  1608. X152 5508.000000 2.000000 0.000000
  1609. X153 5883.000000 -2.000000 0.000000
  1610. X154 6008.000000 -2.000000 0.000000
  1611. X155 6008.000000 2.000000 0.000000
  1612. X156 5883.000000 2.000000 0.000000
  1613. X157 6258.000000 -2.000000 0.000000
  1614. X158 6383.000000 -2.000000 0.000000
  1615. X159 6383.000000 2.000000 0.000000
  1616. X160 6258.000000 2.000000 0.000000
  1617. X161 6633.000000 -2.000000 0.000000
  1618. X162 6758.000000 -2.000000 0.000000
  1619. X163 6758.000000 2.000000 0.000000
  1620. X164 6633.000000 2.000000 0.000000
  1621. X165 7008.000000 -2.000000 0.000000
  1622. X166 7133.000000 -2.000000 0.000000
  1623. X167 7133.000000 2.000000 0.000000
  1624. X168 7008.000000 2.000000 0.000000
  1625. X169 7383.000000 -2.000000 0.000000
  1626. X170 7508.000000 -2.000000 0.000000
  1627. X171 7508.000000 2.000000 0.000000
  1628. X172 7383.000000 2.000000 0.000000
  1629. X173 7758.000000 -2.000000 0.000000
  1630. X174 7883.000000 -2.000000 0.000000
  1631. X175 7883.000000 2.000000 0.000000
  1632. X176 7758.000000 2.000000 0.000000
  1633. X177 8133.000000 -2.000000 0.000000
  1634. X178 8258.000000 -2.000000 0.000000
  1635. X179 8258.000000 2.000000 0.000000
  1636. X180 8133.000000 2.000000 0.000000
  1637. X181 8508.000000 -2.000000 0.000000
  1638. X182 8633.000000 -2.000000 0.000000
  1639. X183 8633.000000 2.000000 0.000000
  1640. X184 8508.000000 2.000000 0.000000
  1641. X185 8883.000000 -2.000000 0.000000
  1642. X186 9008.000000 -2.000000 0.000000
  1643. X187 9008.000000 2.000000 0.000000
  1644. X188 8883.000000 2.000000 0.000000
  1645. X189 9258.000000 -2.000000 0.000000
  1646. X190 9383.000000 -2.000000 0.000000
  1647. X191 9383.000000 2.000000 0.000000
  1648. X192 9258.000000 2.000000 0.000000
  1649. X193 9633.000000 -2.000000 0.000000
  1650. X194 9758.000000 -2.000000 0.000000
  1651. X195 9758.000000 2.000000 0.000000
  1652. X196 9633.000000 2.000000 0.000000
  1653. X197 10008.000000 -2.000000 0.000000
  1654. X198 10133.000000 -2.000000 0.000000
  1655. X199 10133.000000 2.000000 0.000000
  1656. X200 10008.000000 2.000000 0.000000
  1657. X201 10383.000000 -2.000000 0.000000
  1658. X202 10508.000000 -2.000000 0.000000
  1659. X203 10508.000000 2.000000 0.000000
  1660. X204 10383.000000 2.000000 0.000000
  1661. X205 10758.000000 -2.000000 0.000000
  1662. X206 10883.000000 -2.000000 0.000000
  1663. X207 10883.000000 2.000000 0.000000
  1664. X208 10758.000000 2.000000 0.000000
  1665. X209 11133.000000 -2.000000 0.000000
  1666. X210 11258.000000 -2.000000 0.000000
  1667. X211 11258.000000 2.000000 0.000000
  1668. X212 11133.000000 2.000000 0.000000
  1669. X213 11508.000000 -2.000000 0.000000
  1670. X214 11633.000000 -2.000000 0.000000
  1671. X215 11633.000000 2.000000 0.000000
  1672. X216 11508.000000 2.000000 0.000000
  1673. X#b7b19f 4  1 2 3 4
  1674. Xwhite 4  5 6 7 8
  1675. Xwhite 4  9 10 11 12
  1676. Xwhite 4  13 14 15 16
  1677. Xwhite 4  17 18 19 20
  1678. Xwhite 4  21 22 23 24
  1679. Xwhite 4  25 26 27 28
  1680. Xwhite 4  29 30 31 32
  1681. Xwhite 4  33 34 35 36
  1682. Xwhite 4  37 38 39 40
  1683. Xwhite 4  41 42 43 44
  1684. Xwhite 4  45 46 47 48
  1685. Xwhite 4  49 50 51 52
  1686. Xwhite 4  53 54 55 56
  1687. Xwhite 4  57 58 59 60
  1688. Xwhite 4  61 62 63 64
  1689. Xwhite 4  65 66 67 68
  1690. Xwhite 4  69 70 71 72
  1691. Xwhite 4  73 74 75 76
  1692. Xwhite 4  77 78 79 80
  1693. Xwhite 4  81 82 83 84
  1694. Xwhite 4  85 86 87 88
  1695. Xwhite 4  89 90 91 92
  1696. Xwhite 4  93 94 95 96
  1697. Xwhite 4  97 98 99 100
  1698. Xwhite 4  101 102 103 104
  1699. Xwhite 4  105 106 107 108
  1700. Xwhite 4  109 110 111 112
  1701. Xwhite 4  113 114 115 116
  1702. Xwhite 4  117 118 119 120
  1703. Xwhite 4  121 122 123 124
  1704. Xwhite 4  125 126 127 128
  1705. Xwhite 4  129 130 131 132
  1706. Xwhite 4  133 134 135 136
  1707. Xwhite 4  137 138 139 140
  1708. Xwhite 4  141 142 143 144
  1709. Xwhite 4  145 146 147 148
  1710. Xwhite 4  149 150 151 152
  1711. Xwhite 4  153 154 155 156
  1712. Xwhite 4  157 158 159 160
  1713. Xwhite 4  161 162 163 164
  1714. Xwhite 4  165 166 167 168
  1715. Xwhite 4  169 170 171 172
  1716. Xwhite 4  173 174 175 176
  1717. Xwhite 4  177 178 179 180
  1718. Xwhite 4  181 182 183 184
  1719. Xwhite 4  185 186 187 188
  1720. Xwhite 4  189 190 191 192
  1721. Xwhite 4  193 194 195 196
  1722. Xwhite 4  197 198 199 200
  1723. Xwhite 4  201 202 203 204
  1724. Xwhite 4  205 206 207 208
  1725. Xwhite 4  209 210 211 212
  1726. Xwhite 4  213 214 215 216
  1727. END_OF_FILE
  1728. if test 8674 -ne `wc -c <'acm/fsim/rwy'`; then
  1729.     echo shar: \"'acm/fsim/rwy'\" unpacked with wrong size!
  1730. fi
  1731. # end of 'acm/fsim/rwy'
  1732. fi
  1733. echo shar: End of archive 4 \(of 9\).
  1734. cp /dev/null ark4isdone
  1735. MISSING=""
  1736. for I in 1 2 3 4 5 6 7 8 9 ; do
  1737.     if test ! -f ark${I}isdone ; then
  1738.     MISSING="${MISSING} ${I}"
  1739.     fi
  1740. done
  1741. if test "${MISSING}" = "" ; then
  1742.     echo You have unpacked all 9 archives.
  1743.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1744. else
  1745.     echo You still need to unpack the following archives:
  1746.     echo "        " ${MISSING}
  1747. fi
  1748. ##  End of shell archive.
  1749. exit 0
  1750. -- 
  1751. Riley Rainey            Internet: riley@mips.com
  1752. MIPS Computer Systems        Phone:    +1 214 770-7979
  1753. Dallas, Texas
  1754.