home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-05-26 | 45.2 KB | 1,770 lines |
- Newsgroups: comp.sources.x
- From: daven@ctron.com ("David N. Nedde")
- Subject: v20i005: xball - simulate bouncing balls in a window, Part05/05
- Message-ID: <1993May24.202923.24363@sparky.imd.sterling.com>
- X-Md4-Signature: 906aa4bcac6fe710be0064c178b1e977
- Sender: chris@sparky.imd.sterling.com (Chris Olson)
- Organization: Sterling Software
- Date: Mon, 24 May 1993 20:29:23 GMT
- Approved: chris@sparky.imd.sterling.com
-
- Submitted-by: daven@ctron.com ("David N. Nedde")
- Posting-number: Volume 20, Issue 5
- Archive-name: xball/part05
- Environment: X11, OSF/Motif, Athena
-
- #! /bin/sh
- # This is a shell archive. Remove anything before this line, then unpack
- # it by saving it into a file and typing "sh file". To overwrite existing
- # files, type "sh file -c". You can also feed this as standard input via
- # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
- # will see the following message at the end:
- # "End of archive 5 (of 5)."
- # Contents: XBall.ad README good_bitmaps on.xbm off.xbm man.xbm
- # stipple.xbm xball.xbm xball-a.xbm xball-b.xbm xball-l.xbm
- # xball-x.xbm sgi.xbm demo1 demo2 demo3 demo4 demo5 demo6 demo7
- # demo8 demo9 demo10 demo11 demo12 demo13 demo14
- # Wrapped by daven@osiris on Tue May 4 16:35:09 1993
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- if test -f 'XBall.ad' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'XBall.ad'\"
- else
- echo shar: Extracting \"'XBall.ad'\" \(16917 characters\)
- sed "s/^X//" >'XBall.ad' <<'END_OF_FILE'
- X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- X! XBall.ad - xball resource file
- X!
- X! Copyright 1991, David Nedde
- X!
- X! Permission to use, copy, modify, and distribute this
- X! software and its documentation for any purpose and without fee
- X! is granted provided that the above copyright notice appears in all copies.
- X! It is provided 'as is' without express or implied warranty.
- X!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- X
- XXBall.delay: 100
- XXBall.gravity: 8
- XXBall.elasticity: 90
- XXBall.itemWidth: 10
- XXBall.itemHeight: 10
- XXBall.collide: False
- XXBall.perpetual: False
- XXBall.haltSim: False
- X
- X
- XXBall.title: XBall - Written by David Nedde
- X
- XXBall*form.horizontalSpacing: 2
- XXBall*form.verticalSpacing: 2
- XXBall*form.width: 400
- XXBall*form.height: 400
- XXBall.allowShellResize: True
- XXBall*resizable: True
- X
- X
- X!!!!!!!!!!
- X! Menu Bar
- X!!!!!!!!!!
- X
- XXBall*menuBar.rightAttachment: ATTACH_FORM
- XXBall*menuBar.leftAttachment: ATTACH_FORM
- X! Athena resources
- XXBall*menuBar*MenuButton.borderWidth: 0
- XXBall*menuBar.borderWidth: 1
- XXBall.formAW*translations: #override \n\
- X <Key>q: menu_action( quit) \n\
- X Ctrl<Key>q: menu_action( quit) \n\
- X Ctrl<Key>c: menu_action( quit) \n\
- X <Key>c: menu_action( clear) \n\
- X <Key>r: menu_action( randomize) \n\
- X <Key>s: menu_action( stepSim) \n\
- X <Key>p: menu_action( perpetual) \n\
- X <Key>b: menu_action( ballCollide) \n\
- X <Key>h: menu_action( haltSim) \n\
- X <Key>l: menu_action( loadBitmap) \n\
- X <Key>d: menu_action( runDemo) \n\
- X <Key>a: menu_action( about) \n\
- X
- X
- X! File Submenu
- XXBall*file.labelString: File
- XXBall*file.label: File
- XXBall*file.mnemonic: F
- XXBall*about.labelString: About...
- XXBall*about.label: About... A
- XXBall*about.mnemonic: A
- XXBall*about.accelerator: <Key>A
- XXBall*about.acceleratorText: A
- XXBall*runDemo.labelString: Run Demo...
- XXBall*runDemo.label: Run Demo... D
- XXBall*runDemo.mnemonic: D
- XXBall*runDemo.accelerator: <Key>D
- XXBall*runDemo.acceleratorText: D
- XXBall*loadBitmap.labelString: Load Bitmap...
- XXBall*loadBitmap.label: Load Bitmap... L
- XXBall*loadBitmap.mnemonic: L
- XXBall*loadBitmap.accelerator: <Key>L
- XXBall*loadBitmap.acceleratorText: L
- XXBall*quit.labelString: Quit
- XXBall*quit.label: Quit Q
- XXBall*quit.mnemonic: Q
- XXBall*quit.accelerator: <Key>Q
- XXBall*quit.acceleratorText: Q
- X
- X! Action Submenu
- XXBall*actions.labelString: Actions
- XXBall*actions.label: Actions
- XXBall*actions.mnemonic: A
- XXBall*clear.labelString: Clear
- XXBall*clear.label: Clear C
- XXBall*clear.mnemonic: C
- XXBall*clear.acceleratorText: C
- XXBall*clear.accelerator: <Key>C
- XXBall*randomize.labelString: Randomize
- XXBall*randomize.label: Randomize R
- XXBall*randomize.mnemonic: R
- XXBall*randomize.acceleratorText:R
- XXBall*randomize.accelerator: <Key>R
- XXBall*stopDemo.labelString: Stop Demo
- XXBall*stopDemo.label: Stop Demo
- XXBall*stepSim.labelString: Step Simulation
- XXBall*stepSim.label: Step Simulation S
- XXBall*stepSim.mnemonic: S
- XXBall*stepSim.acceleratorText: S
- XXBall*stepSim.accelerator: <Key>S
- X
- X! Options Submenu
- XXBall*options.labelString: Options
- XXBall*options.label: Options
- XXBall*options.mnemonic: O
- XXBall*perpetual.labelString: Perpetual
- XXBall*perpetual.label: Perpetual P
- XXBall*perpetual.mnemonic: P
- XXBall*perpetual.acceleratorText: P
- XXBall*perpetual.accelerator: <Key>P
- XXBall*ballCollide.labelString: Ball Collide
- XXBall*ballCollide.label: Ball Collide B
- XXBall*ballCollide.mnemonic: B
- XXBall*ballCollide.acceleratorText: B
- XXBall*ballCollide.accelerator: <Key>B
- XXBall*haltSim.labelString: Halt Simulation
- XXBall*haltSim.label: Halt Simulation H
- XXBall*haltSim.mnemonic: H
- XXBall*haltSim.acceleratorText: H
- XXBall*haltSim.accelerator: <Key>H
- X
- X! Help Submenu
- XXBall*help.labelString: Help
- XXBall*help.label: Help
- XXBall*help.mnemonic: H
- XXBall*onAuthor.labelString: On Author...
- XXBall*onAuthor.label: On Author...
- XXBall*onMenus.labelString: On Menus...
- XXBall*onMenus.label: On Menus...
- XXBall*onScroll.labelString: On Scrollbars...
- XXBall*onScroll.label: On Scrollbars...
- XXBall*onButtons.labelString: On Buttons...
- XXBall*onButtons.label: On Buttons...
- XXBall*onDemos.labelString: On Demos...
- XXBall*onDemos.label: On Demos...
- XXBall*onParams.labelString: On Parameters...
- XXBall*onParams.label: On Parameters...
- X
- X
- XXBall*elasticityBar.topAttachment: ATTACH_WIDGET
- XXBall*elasticityBar.topWidget: menuBar
- XXBall*elasticityBar.leftAttachment: ATTACH_FORM
- X
- XXBall*elasticityBar.label.labelString: Elasticity
- XXBall*elasticityBar.label.leftAttachment: ATTACH_FORM
- XXBall*elasticityBar.label.leftOffset: 10
- XXBall*elasticityBar.label.topAttachment: ATTACH_FORM
- XXBall*elasticityBar.label.bottomAttachment: ATTACH_FORM
- X! Athena resources
- XXBall*elasticityBar.fromVert: menuBar
- XXBall*elasticityBar.label.label: Elasticity
- XXBall*elasticityBar.label.borderWidth: 0
- X
- XXBall*elasticityBar.bar.width: 100
- XXBall*elasticityBar.bar.orientation: HORIZONTAL
- XXBall*elasticityBar.bar.maximum: 100
- XXBall*elasticityBar.bar.minimum: 0
- XXBall*elasticityBar.bar.showValue: True
- X! Athena resources
- XXBall*elasticityBar.bar.shown: 0.1
- XXBall*elasticityBar.borderWidth: 0
- XXBall*elasticityBar.label.borderWidth: 0
- XXBall*elasticityBar.feedback.borderWidth: 0
- XXBall*elasticityBar.defaultDistance: 0
- X
- X
- X
- XXBall*gravityBar.label.labelString: Gravity
- XXBall*gravityBar.label.leftAttachment: ATTACH_FORM
- XXBall*gravityBar.label.topAttachment: ATTACH_FORM
- XXBall*gravityBar.label.bottomAttachment: ATTACH_FORM
- X! Athena resources
- XXBall*gravityBar.label.label: Gravity
- XXBall*gravityBar.label.borderWidth: 0
- X
- XXBall*gravityBar.leftAttachment: ATTACH_WIDGET
- XXBall*gravityBar.leftWidget: elasticityBar
- XXBall*gravityBar.leftOffset: 20
- XXBall*gravityBar.topAttachment: ATTACH_WIDGET
- XXBall*gravityBar.topWidget: menuBar
- XXBall*gravityBar.bar.width: 100
- XXBall*gravityBar.bar.orientation: HORIZONTAL
- XXBall*gravityBar.bar.maximum: 100
- XXBall*gravityBar.bar.minimum: 0
- XXBall*gravityBar.bar.showValue: True
- X! Athena resources
- XXBall*gravityBar.fromVert: menuBar
- XXBall*gravityBar.horizDistance: 20
- XXBall*gravityBar.fromHoriz: elasticityBar
- XXBall*gravityBar.bar.shown: 0.1
- XXBall*gravityBar.borderWidth: 0
- XXBall*gravityBar.label.borderWidth: 0
- XXBall*gravityBar.feedback.borderWidth: 0
- XXBall*gravityBar.defaultDistance: 0
- X
- XXBall*canvas.resizable: True
- XXBall*canvas.borderWidth: 1
- XXBall*canvas.topAttachment: ATTACH_WIDGET
- XXBall*canvas.topWidget: gravityBar
- XXBall*canvas.bottomAttachment: ATTACH_FORM
- XXBall*canvas.rightAttachment: ATTACH_FORM
- XXBall*canvas.leftAttachment: ATTACH_FORM
- X! Athena resources
- XXBall*canvas.fromVert: gravityBar
- XXBall*canvas.width: 400
- XXBall*canvas.height: 330
- X
- X
- XXBall*help_dialog_popup.title: XBall Information
- XXBall*help_dialog_action_area.leftAttachment: ATTACH_FORM
- XXBall*help_dialog_action_area.rightAttachment: ATTACH_FORM
- XXBall*help_dialog_action_area.bottomAttachment: ATTACH_FORM
- XXBall*help_dialog_action_area.close.labelString: Close
- XXBall*help_dialog.close.label: Close
- XXBall*help_dialog.separator.rightAttachment: ATTACH_FORM
- XXBall*help_dialog.separator.leftAttachment: ATTACH_FORM
- XXBall*help_dialog.separator.topOffset: 5
- XXBall*help_dialog.separator.bottomAttachment: ATTACH_WIDGET
- XXBall*help_dialog.separator.bottomWidget: help_dialog_action_area
- XXBall*help_dialog*help_text.rows: 12
- XXBall*help_dialog*help_text.columns: 60
- X! Athena Resources
- XXBall*help_dialog*help_textAW.displayCaret: False
- XXBall*help_dialog*help_textAW.height: 150
- XXBall*help_dialog*help_textAW.width: 470
- XXBall*help_dialog*help_textAW.scrollHorizontal: WhenNeeded
- XXBall*help_dialog*help_textAW.scrollVertical: WhenNeeded
- X
- XXBall*help_dialog*close.accelerators: \
- X <KeyPress>Escape: set() notify() unset() \n\
- X <KeyPress>Return: set() notify() unset() \n\
- X
- X
- X
- X!!!!!!!!!!!
- X! Help text
- X!!!!!!!!!!!
- X!
- X! Note that since fallback resources cannot handle \n in the text,
- X! a ~ is used to indicate a newline.
- X!
- X!!!!!!!!!!
- X
- XXBall.pointerHelp: \
- X MOUSE BUTTON USAGE ~~~\
- XButton 1: o Hold down to create a ball. ~\
- X o Throw the ball by moving the mouse and ~\
- X letting go of button 1. ~\
- X o The ball will be going the speed of the ~\
- X pointer at release time. ~\
- XButton 2: o Hold down and move the mouse to create ~\
- X random velocity balls. ~\
- XButton 3: o Hold down and move the mouse to create ~\
- X zero velocity balls. \
- X
- XXBall.menuHelp: \
- X PULLDOWN MENU USAGE~~~\
- XFile~\
- X About... A description of the program and author~\
- X Run Demo... Allows you to execute XBall demo files~\
- X See 'Help On Demos' for demo file format~\
- X Load Bitmap... Load an X bitmap as a set of balls~\
- X Analogous Demo command: ~\
- X bitmap filename posx,posy~\
- X Quit Exits the program~~\
- XActions~\
- X Clear Clear the screen of balls~\
- X Analogous Demo command: clear~\
- X Randomize Give each ball a random velocity~\
- X Analogous Demo command: ~\
- X randomize minx,maxx,miny,maxy~\
- X Stop Demo Stops the execution of a demo in progress~\
- X Enabled by the Run Demo... menu option~\
- X Analogous Demo command: stop~\
- X Step Simulation Perform one step of the Halted simulation~\
- X Enabled by the Halt Simulation menu option~~\
- XOptions~\
- X Perpetual If toggled on, balls will live forever~\
- X Analogous Demo command: perpetual on|off~\
- X Command line option: -perpetual True|False~\
- X Ball Collide If on, balls will collide with one another~\
- X Analogous Demo command: collide on|off~\
- X Command line option: -collide True|False~~\
- X Help Simulation Stop the simulation. You can then step the~\
- X simulation using Step Simulation menu option~~\
- XHelp~\
- X On Menus Help using the menu system~\
- X On Scrollbars Help on the Elasticity and Gravity bars~\
- X On Buttons Help on using the mouse buttons to create balls~\
- X On Demos Help on the Demo language and how to run demos~\
- X On Parameters Help with command-line arguments to xball \
- X
- X
- XXBall.scrollbarHelp: \
- X SCROLLBAR USAGE~~~\
- XElasticity~\
- X o This scrollbar controls the balls' elasticity, or how~\
- X much energy is lost each time the balls hit the ground.~\
- X o Scrollbar to left: low elasticity (eggs)~\
- X o Scrollbar to right: high elasticity (superballs)~\
- X o Demo command: elasticity %d~\
- X o Command line options: -elasticity %d~~~\
- XGravity~\
- X o This scrollbar controls the gravity, or how~\
- X much vertical velocity is added (subtracted)~\
- X from the balls for each iteration.~\
- X o Scrollbar to the left: Zero gravity (outer space)~\
- X o Scrollbar to the right: Large gravity (Jupiter)~\
- X o Demo command: gravity %d~\
- X o Command line options: -gravity %d \
- X
- X
- XXBall.demoHelp: \
- X DEMO FILE COMMANDS~~\
- X %s1, %s2... - Replace with a string~\
- X %d1, %d2... - Replace with an integer~~\
- X create %d1,%d2,%d3,%d4: Create a ball with x,y position~\
- X %d1,%d2 and an x & y velocity~\
- X of %d2,%d4~\
- X randomize %d1,%d2,%d3,%d4: randomize velocities of all ~\
- X balls on screen with:~\
- X a max negative x velocity of %d1,~\
- X a max positive x velocity of %d2,~\
- X a max negative y velocity of %d3,~\
- X a max positive y velocity of %d4,~\
- X load_bitmap %s %d1,%d2: load a bitmap file (where %s is~\
- X the file path) to an x,y position~\
- X of %d1,%d2 on the screen~\
- X set_velocity %s %d1,%d2: set ball velocities (%s is~\
- X relative or absolute) to the x ~\
- X and y velocities %d1,%d2~\
- X gravity %d: set gravity to %d~\
- X elasticity %d: set elasticity to %d~\
- X backwards %d: Run simulation backwards %d iterations~\
- X visible %s: Make ball display 'on' or 'off'~\
- X iterate %d: simulate for %d iterations~\
- X sleep %d: sleep for %d seconds~\
- X perpetual %s: toggle perpetual (%s is 'on' or 'off')~\
- X collide %s: toggle ball collision (%s is 'on' or 'off')~\
- X window_width %d: Change window width to %d~\
- X window_height %d: Change window height to %d~\
- X backwards %d: Iterate backwards %d steps~\
- X clear: delete all balls in window~\
- X create_random %d1,%d2: create %d1 random balls with a ~\
- X max velocity of %d2~\
- X exit or quit: quit the xball program if demo is not~\
- X interactive~\
- X stop: stop demo but leave program alive \
- X
- XXBall.startupHelp: \
- X PROGRAM STARTUP PARAMETERS~~~\
- X Run xball -help for a list of command-line startup~\
- X parameters
- X
- XXBall.aboutString: \
- XXBall Version 3.0~~\
- X April 1993~~\
- XThe Premire Ball Bouncing Software~~\
- X Allows you to throw 3-D balls around in a 2-D space.~~\
- XAuthor (Send bugs, comments, and interesting demos to):~\
- X David Nedde~\
- X daven@ivy.wpi.edu~\
- X Computer Science Department~\
- X Worcester Polytechnic Institute~\
- X Worcester, MA 01609~~\
- XCopyright 1990, 1993 David Nedde~\
- XPermission to use, copy, modify, and distribute this~\
- Xsoftware and its documentation for any purpose and~\
- Xwithout fee is granted provided that the above~\
- Xcopyright notice appears in all copies. It is~\
- Xprovided \"as is\" without express or implied warranty. \
- X
- X
- X!!!!!!!!!!!!!!!!!
- X! Menu Definition
- X!!!!!!!!!!!!!!!!!
- X!
- X! Format:
- X! pulldownName~
- X! widgetName,widgetClass,menuCallbackName,optionalParams...~
- X!
- X! The widgetName is referenced above to set the menu's label.
- X!
- X! Note that the pulldownName of 'help' is automatically used as the help
- X! pulldown.
- X!
- X! Avaliable WidgetClasses are:
- X! PushButton - push it and cause the action
- X! ToggleButton - Push it and toggle the state
- X! Separator - A line in the menu
- X!
- X! Avaliable menuCallbackNames avaliable (none take optional parameters):
- X! runDemo - Lets user select a demo and run the demo
- X! loadBitmap - Lets user load a bitmap file
- X! quit - quits xball program
- X! clear - Clear all balls from the screen
- X! randomize - Randomize all balls from the screen
- X! stopDemo - Stop a demo in progress
- X! stepSim - Steps the simulation once (if simulation halted)
- X! perpetual - Toggles perpetual balls state
- X! ballCollide - Toggles colliding ball state
- X! haltSim - Toggles halting the simulation
- X! about - Displays help about the program
- X! onMenus - Displays help on the menus
- X! onScroll - Displays help on setting elasticity and gravity
- X! onButtons - Displays help on using the mouse buttons to create balls
- X! onDemos - Displays help on writing a demo
- X! onParams - Displays help on command-line arguments
- X!
- X!!!!!!!!!!!!!!!!!
- X
- XXBall.menuDef: \
- X\
- X file~\
- X about,PushButton,about~\
- X runDemo,PushButton,runDemo~\
- X loadBitmap,PushButton,loadBitmap~\
- X separator,Separator~\
- X quit,PushButton,quit~\
- X actions~\
- X clear,PushButton,clear~\
- X randomize,PushButton,randomize~\
- X stopDemo,PushButton,stopDemo~\
- X stepSim,PushButton,stepSim~\
- X options~\
- X perpetual,ToggleButton,perpetual~\
- X ballCollide,ToggleButton,ballCollide~\
- X haltSim,ToggleButton,haltSim~\
- X help~\
- X about,PushButton,about~\
- X onMenus,PushButton,onMenus~\
- X onScroll,PushButton,onScroll~\
- X onButtons,PushButton,onButtons~\
- X onDemos,PushButton,onDemos~\
- X onParams,PushButton,onParams~\
- X
- END_OF_FILE
- if test 16917 -ne `wc -c <'XBall.ad'`; then
- echo shar: \"'XBall.ad'\" unpacked with wrong size!
- fi
- # end of 'XBall.ad'
- fi
- if test -f 'README' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'README'\"
- else
- echo shar: Extracting \"'README'\" \(2506 characters\)
- sed "s/^X//" >'README' <<'END_OF_FILE'
- XXBall Version 3.0 - 5/93
- X
- X This program simulates bouncing balls in a window. You create the
- Xballs in a variety of ways, and can set the gravity, elasticity,
- Xwhether balls collide or not, etc.
- X
- X Since the last version, I have added Motif support, 3-d shaded
- Xballs, and a demo running facility.
- X
- X Software features include user-configurable menus, and a DrawingArea
- Xwidget for use with other Athena widgets.
- X
- X XBall compiles using either Motif or Athena Widgets (See the
- XImakefile to select the one you want). It been compiled and run on a
- XSun Sparc, IBM RS6000, SGI Iris and DecStation 5000, using their
- Xstandard C compiler. The Athena version works using X11R4 or X11R5.
- X
- X To compile, run xmkmf (and Make Makefiles if Athena widgets used).
- XThen make. A standard Make.motif and Make.athena have been provided
- Xif you do not have xmkmf. If you have undefined symbols, such as
- Xusleep or regex, see the Imakefile for symbols to define, xmkmf,
- Xremove the *.o files, and recompile.
- X
- X All resources are contained within the program as fallback
- Xresources, so, it is not strictly neccessary to install the
- Xapp-defaults file, except that when using Athena widgets, since the
- Xkeyboard accelerators will not work if the app-defauls file is not
- Xinstalled.
- X
- X To run the included demos, type 'run_demos'.
- X
- X Here are the recommended values for the delay to slow down balls.
- XThis delay can be set in the Imakefile, or when run as xball -delay 1000.
- X Sun Sparc 100
- X IBM RS6000 10000
- X SGI Iris 100 (Uncomment MYLDLIBS in Imakefile if using Motif)
- X DecStation 5000 180 (Comment out HAVE_USLEEP in Imakefile)
- X
- X
- X Please send bugs, comments, suggestions, and interesting demos to:
- Xdaven@ivy.wpi.edu.
- X
- X
- XCopying Policy:
- X Copyright 1993 David Nedde
- X Permission to use, copy, modify, and distribute this software
- X and its documentation for any purpose and without fee is granted
- X provided that the above copyright notice appears in all copies.
- X It is provided "as is" without express or implied warranty.
- X
- XTwo files have additional copying policies:
- X act_area.c:
- X Written by Dan Heller. Copyright 1991, O'Reilly && Associates.
- X This program is freely distributable without licensing fees and
- X is provided without guarantee or warrantee expressed or implied.
- X This program is -not- in the public domain.
- X filemenu.c
- X Copyright 1989 The University of Texas at Austin
- X Copyright 1990 Microelectronics and Computer Technology Corporation
- X Author: Po Cheung
- END_OF_FILE
- if test 2506 -ne `wc -c <'README'`; then
- echo shar: \"'README'\" unpacked with wrong size!
- fi
- # end of 'README'
- fi
- if test -f 'good_bitmaps' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'good_bitmaps'\"
- else
- echo shar: Extracting \"'good_bitmaps'\" \(257 characters\)
- sed "s/^X//" >'good_bitmaps' <<'END_OF_FILE'
- XA list of bitmaps that are interesting when loaded as balls. These
- Xfiles should be in /usr/include/X11/bitmaps:
- X
- X 2x2
- X boxes
- X cntr_ptr
- X cross_weave
- X dot
- X keyboard16
- X left_ptr
- X right_ptr
- X scales
- X sipb
- X star
- X target
- X xlogo11
- X xlogo16
- X xlogo32
- END_OF_FILE
- if test 257 -ne `wc -c <'good_bitmaps'`; then
- echo shar: \"'good_bitmaps'\" unpacked with wrong size!
- fi
- # end of 'good_bitmaps'
- fi
- if test -f 'on.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'on.xbm'\"
- else
- echo shar: Extracting \"'on.xbm'\" \(194 characters\)
- sed "s/^X//" >'on.xbm' <<'END_OF_FILE'
- X#define on_width 10
- X#define on_height 10
- Xstatic char on_bits[] = {
- X 0x00, 0x03, 0x80, 0x01, 0x80, 0x00, 0xc0, 0x00, 0x40, 0x00, 0x61, 0x00,
- X 0x23, 0x00, 0x36, 0x00, 0x1c, 0x00, 0x18, 0x00};
- END_OF_FILE
- if test 194 -ne `wc -c <'on.xbm'`; then
- echo shar: \"'on.xbm'\" unpacked with wrong size!
- fi
- # end of 'on.xbm'
- fi
- if test -f 'off.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'off.xbm'\"
- else
- echo shar: Extracting \"'off.xbm'\" \(197 characters\)
- sed "s/^X//" >'off.xbm' <<'END_OF_FILE'
- X#define off_width 10
- X#define off_height 10
- Xstatic char off_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 197 -ne `wc -c <'off.xbm'`; then
- echo shar: \"'off.xbm'\" unpacked with wrong size!
- fi
- # end of 'off.xbm'
- fi
- if test -f 'man.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'man.xbm'\"
- else
- echo shar: Extracting \"'man.xbm'\" \(114 characters\)
- sed "s/^X//" >'man.xbm' <<'END_OF_FILE'
- X#define man_width 5
- X#define man_height 7
- Xstatic char man_bits[] = {
- X 0x11, 0x11, 0x0a, 0x04, 0x0e, 0x15, 0x15};
- END_OF_FILE
- if test 114 -ne `wc -c <'man.xbm'`; then
- echo shar: \"'man.xbm'\" unpacked with wrong size!
- fi
- # end of 'man.xbm'
- fi
- if test -f 'stipple.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'stipple.xbm'\"
- else
- echo shar: Extracting \"'stipple.xbm'\" \(96 characters\)
- sed "s/^X//" >'stipple.xbm' <<'END_OF_FILE'
- X#define stipple_width 2
- X#define stipple_height 2
- Xstatic char stipple_bits[] = {
- X 0x01, 0x02};
- END_OF_FILE
- if test 96 -ne `wc -c <'stipple.xbm'`; then
- echo shar: \"'stipple.xbm'\" unpacked with wrong size!
- fi
- # end of 'stipple.xbm'
- fi
- if test -f 'xball.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'xball.xbm'\"
- else
- echo shar: Extracting \"'xball.xbm'\" \(479 characters\)
- sed "s/^X//" >'xball.xbm' <<'END_OF_FILE'
- X#define xball_width 32
- X#define xball_height 16
- Xstatic char xball_bits[] = {
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x88, 0x1e, 0xc0, 0x18,
- X 0x88, 0x24, 0x80, 0x10, 0x50, 0x24, 0x87, 0x10, 0x20, 0x1c, 0x88, 0x10,
- X 0x50, 0x24, 0x8f, 0x10, 0x88, 0xa4, 0x88, 0x10, 0x88, 0x1e, 0xcf, 0x39,
- X 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
- X 0x00, 0x00, 0x00, 0x00};
- END_OF_FILE
- if test 479 -ne `wc -c <'xball.xbm'`; then
- echo shar: \"'xball.xbm'\" unpacked with wrong size!
- fi
- # end of 'xball.xbm'
- fi
- if test -f 'xball-a.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'xball-a.xbm'\"
- else
- echo shar: Extracting \"'xball-a.xbm'\" \(126 characters\)
- sed "s/^X//" >'xball-a.xbm' <<'END_OF_FILE'
- X#define xball_a_width 5
- X#define xball_a_height 7
- Xstatic char xball_a_bits[] = {
- X 0x00, 0x00, 0x0e, 0x10, 0x1e, 0x11, 0x1e};
- END_OF_FILE
- if test 126 -ne `wc -c <'xball-a.xbm'`; then
- echo shar: \"'xball-a.xbm'\" unpacked with wrong size!
- fi
- # end of 'xball-a.xbm'
- fi
- if test -f 'xball-b.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'xball-b.xbm'\"
- else
- echo shar: Extracting \"'xball-b.xbm'\" \(126 characters\)
- sed "s/^X//" >'xball-b.xbm' <<'END_OF_FILE'
- X#define xball_b_width 5
- X#define xball_b_height 7
- Xstatic char xball_b_bits[] = {
- X 0x0f, 0x12, 0x12, 0x0e, 0x12, 0x12, 0x0f};
- END_OF_FILE
- if test 126 -ne `wc -c <'xball-b.xbm'`; then
- echo shar: \"'xball-b.xbm'\" unpacked with wrong size!
- fi
- # end of 'xball-b.xbm'
- fi
- if test -f 'xball-l.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'xball-l.xbm'\"
- else
- echo shar: Extracting \"'xball-l.xbm'\" \(126 characters\)
- sed "s/^X//" >'xball-l.xbm' <<'END_OF_FILE'
- X#define xball_l_width 4
- X#define xball_l_height 7
- Xstatic char xball_l_bits[] = {
- X 0x06, 0x04, 0x04, 0x04, 0x04, 0x04, 0x0e};
- END_OF_FILE
- if test 126 -ne `wc -c <'xball-l.xbm'`; then
- echo shar: \"'xball-l.xbm'\" unpacked with wrong size!
- fi
- # end of 'xball-l.xbm'
- fi
- if test -f 'xball-x.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'xball-x.xbm'\"
- else
- echo shar: Extracting \"'xball-x.xbm'\" \(126 characters\)
- sed "s/^X//" >'xball-x.xbm' <<'END_OF_FILE'
- X#define xball_b_width 5
- X#define xball_b_height 7
- Xstatic char xball_b_bits[] = {
- X 0x11, 0x11, 0x0a, 0x04, 0x0a, 0x11, 0x11};
- END_OF_FILE
- if test 126 -ne `wc -c <'xball-x.xbm'`; then
- echo shar: \"'xball-x.xbm'\" unpacked with wrong size!
- fi
- # end of 'xball-x.xbm'
- fi
- if test -f 'sgi.xbm' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'sgi.xbm'\"
- else
- echo shar: Extracting \"'sgi.xbm'\" \(446 characters\)
- sed "s/^X//" >'sgi.xbm' <<'END_OF_FILE'
- X#define sgi_width 20
- X#define sgi_height 20
- Xstatic char sgi_bits[] = {
- X 0x80, 0x08, 0x00, 0x60, 0x35, 0x00, 0x18, 0xc5, 0x00, 0x06, 0x05, 0x03,
- X 0x04, 0x05, 0x01, 0x18, 0xc5, 0x00, 0x60, 0x30, 0x00, 0x84, 0x0d, 0x01,
- X 0x1a, 0xc2, 0x02, 0x62, 0x30, 0x02, 0x82, 0x0d, 0x02, 0x32, 0x65, 0x02,
- X 0x0c, 0x85, 0x01, 0x60, 0x35, 0x00, 0x18, 0xc5, 0x00, 0x04, 0x05, 0x01,
- X 0x04, 0x05, 0x01, 0x18, 0xc5, 0x00, 0x60, 0x35, 0x00, 0x80, 0x08, 0x00};
- END_OF_FILE
- if test 446 -ne `wc -c <'sgi.xbm'`; then
- echo shar: \"'sgi.xbm'\" unpacked with wrong size!
- fi
- # end of 'sgi.xbm'
- fi
- if test -f 'demo1' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo1'\"
- else
- echo shar: Extracting \"'demo1'\" \(358 characters\)
- sed "s/^X//" >'demo1' <<'END_OF_FILE'
- X# Load a bitmap, randomize, and let fall through once.
- X
- Xcollide off
- Xperpetual off
- X
- Xload_bitmap xball.xbm 10,10
- X#load_bitmap /usr/include/X11/bitmaps/left_ptr 0,0
- Xgravity 0
- Xiterate 50
- Xsleep 1
- X
- Xgravity 10
- Xrandomize -10,10,-10,10
- Xperpetual on
- X
- Xiterate 30
- X
- Xelasticity 80
- Xgravity 30
- X
- Xiterate 200
- X
- Xperpetual off
- X
- Xiterate 200
- X
- Xexit
- END_OF_FILE
- if test 358 -ne `wc -c <'demo1'`; then
- echo shar: \"'demo1'\" unpacked with wrong size!
- fi
- # end of 'demo1'
- fi
- if test -f 'demo2' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo2'\"
- else
- echo shar: Extracting \"'demo2'\" \(369 characters\)
- sed "s/^X//" >'demo2' <<'END_OF_FILE'
- X# Put up xball bitmap with random balls not colliding in zero gravity
- X# Turn on collide so bitmap image gets destroyed
- X# turn on gravity
- X
- Xcollide off
- Xelasticity 100
- Xload_bitmap xball.xbm 0,0
- Xgravity 0
- Xcreate_random 30,15
- Xiterate 160
- X
- Xelasticity 50
- Xcollide on
- Xiterate 50
- X
- Xgravity 40
- Xiterate 10
- X
- Xgravity 50
- Xiterate 10
- X
- Xgravity 60
- Xiterate 10
- X
- Xgravity 70
- Xiterate 100
- X
- Xexit
- END_OF_FILE
- if test 369 -ne `wc -c <'demo2'`; then
- echo shar: \"'demo2'\" unpacked with wrong size!
- fi
- # end of 'demo2'
- fi
- if test -f 'demo3' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo3'\"
- else
- echo shar: Extracting \"'demo3'\" \(268 characters\)
- sed "s/^X//" >'demo3' <<'END_OF_FILE'
- X# Load bitmap with all balls having the same velocity
- X# After they bounce down, have them fall through
- X# once
- X
- Xcollide off
- Xload_bitmap xball.xbm 0,0
- Xset_velocity abs 3,-10
- Xgravity 10
- Xelasticity 85
- Xperpetual on
- X
- Xiterate 700
- X
- Xperpetual off
- Xgravity 20
- X
- Xiterate 200
- Xexit
- END_OF_FILE
- if test 268 -ne `wc -c <'demo3'`; then
- echo shar: \"'demo3'\" unpacked with wrong size!
- fi
- # end of 'demo3'
- fi
- if test -f 'demo4' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo4'\"
- else
- echo shar: Extracting \"'demo4'\" \(277 characters\)
- sed "s/^X//" >'demo4' <<'END_OF_FILE'
- X# have random balls form xball
- X
- Xvisible off
- X
- Xcollide off
- Xelasticity 100
- Xgravity 0
- Xload_bitmap xball.xbm 0,0
- X
- Xrandomize -10,10,-10,10
- Xbackwards 100
- X
- Xvisible on
- X
- Xiterate 99
- X
- Xset_velocity abs 0,0
- Xgravity 0
- Xsleep 1
- Xrandomize -10,10,-13,7
- Xgravity 10
- Xelasticity 85
- Xiterate 300
- X
- Xexit
- END_OF_FILE
- if test 277 -ne `wc -c <'demo4'`; then
- echo shar: \"'demo4'\" unpacked with wrong size!
- fi
- # end of 'demo4'
- fi
- if test -f 'demo5' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo5'\"
- else
- echo shar: Extracting \"'demo5'\" \(297 characters\)
- sed "s/^X//" >'demo5' <<'END_OF_FILE'
- X# Backwards with gravity into xball bitmap
- X
- Xvisible off
- X
- Xcollide off
- Xelasticity 100
- Xload_bitmap xball.xbm 0,-60
- Xgravity 10
- Xrandomize -3,3,0,3
- X#set_velocity rel 0,1
- X
- Xiterate 20
- X
- Xvisible on
- Xbackwards 21
- X
- Xset_velocity abs 0,0
- Xgravity 0
- Xsleep 1
- Xrandomize 10
- Xgravity 20
- Xelasticity 85
- Xiterate 200
- X
- Xexit
- END_OF_FILE
- if test 297 -ne `wc -c <'demo5'`; then
- echo shar: \"'demo5'\" unpacked with wrong size!
- fi
- # end of 'demo5'
- fi
- if test -f 'demo6' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo6'\"
- else
- echo shar: Extracting \"'demo6'\" \(272 characters\)
- sed "s/^X//" >'demo6' <<'END_OF_FILE'
- X# Xball word collides with itself horizontally
- X
- X
- Xload_bitmap xball.xbm 0,0
- X#load_bitmap /usr/include/X11/bitmaps/left_ptr 0,0
- X
- Xcollide off
- Xset_velocity abs 10,0
- Xgravity 0
- Xelasticity 100
- X
- X
- Xiterate 100
- X
- Xcollide on
- X
- Xiterate 150
- X
- Xelasticity 80
- Xgravity 30
- X
- Xiterate 300
- X
- Xexit
- X
- X
- END_OF_FILE
- if test 272 -ne `wc -c <'demo6'`; then
- echo shar: \"'demo6'\" unpacked with wrong size!
- fi
- # end of 'demo6'
- fi
- if test -f 'demo7' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo7'\"
- else
- echo shar: Extracting \"'demo7'\" \(145 characters\)
- sed "s/^X//" >'demo7' <<'END_OF_FILE'
- X# Tall window of raining balls
- X
- Xwindow_width 190
- Xwindow_height 700
- Xelasticity 80
- Xcollide off
- Xcreate_random 50,30
- Xperpetual on
- Xiterate 500
- Xexit
- X
- X
- END_OF_FILE
- if test 145 -ne `wc -c <'demo7'`; then
- echo shar: \"'demo7'\" unpacked with wrong size!
- fi
- # end of 'demo7'
- fi
- if test -f 'demo8' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo8'\"
- else
- echo shar: Extracting \"'demo8'\" \(971 characters\)
- sed "s/^X//" >'demo8' <<'END_OF_FILE'
- Xcollide on
- X
- Xcreate 200,20,0,0
- Xiterate 40
- Xcreate 200,20,0,0
- Xiterate 80
- Xcreate 200,20,0,0
- Xiterate 40
- Xcreate 200,20,0,0
- Xiterate 40
- Xcreate 200,20,0,0
- Xiterate 20
- Xcreate 200,20,0,0
- Xiterate 20
- Xcreate 200,20,0,0
- Xiterate 10
- Xcreate 200,20,0,0
- Xiterate 10
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- Xiterate 5
- Xcreate 200,20,0,0
- X
- Xiterate 50
- X
- Xcreate 0,0,4,0
- X
- Xiterate 400
- X
- Xexit
- END_OF_FILE
- if test 971 -ne `wc -c <'demo8'`; then
- echo shar: \"'demo8'\" unpacked with wrong size!
- fi
- # end of 'demo8'
- fi
- if test -f 'demo9' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo9'\"
- else
- echo shar: Extracting \"'demo9'\" \(1288 characters\)
- sed "s/^X//" >'demo9' <<'END_OF_FILE'
- Xcollide off
- Xgravity 10
- Xelasticity 90
- Xwindow_width 400
- X
- X
- Xcreate 10,20,0,0
- Xiterate 3
- Xcreate 20,20,0,0
- Xiterate 3
- Xcreate 30,20,0,0
- Xiterate 3
- Xcreate 40,20,0,0
- Xiterate 3
- Xcreate 50,20,0,0
- Xiterate 3
- Xcreate 60,20,0,0
- Xiterate 3
- Xcreate 70,20,0,0
- Xiterate 3
- Xcreate 80,20,0,0
- Xiterate 3
- Xcreate 90,20,0,0
- Xiterate 3
- Xcreate 100,20,0,0
- Xiterate 3
- Xcreate 110,20,0,0
- Xiterate 3
- Xcreate 120,20,0,0
- Xiterate 3
- Xcreate 130,20,0,0
- Xiterate 3
- Xcreate 140,20,0,0
- Xiterate 3
- Xcreate 150,20,0,0
- Xiterate 3
- Xcreate 160,20,0,0
- Xiterate 3
- Xcreate 170,20,0,0
- Xiterate 3
- Xcreate 180,20,0,0
- Xiterate 3
- Xcreate 190,20,0,0
- Xiterate 3
- Xcreate 200,20,0,0
- Xiterate 3
- Xcreate 210,20,0,0
- Xiterate 3
- Xcreate 220,20,0,0
- Xiterate 3
- Xcreate 230,20,0,0
- Xiterate 3
- Xcreate 240,20,0,0
- Xiterate 3
- Xcreate 250,20,0,0
- Xiterate 3
- Xcreate 260,20,0,0
- Xiterate 3
- Xcreate 270,20,0,0
- Xiterate 3
- Xcreate 280,20,0,0
- Xiterate 3
- Xcreate 290,20,0,0
- Xiterate 3
- Xcreate 300,20,0,0
- Xiterate 3
- Xcreate 310,20,0,0
- Xiterate 3
- Xcreate 320,20,0,0
- Xiterate 3
- Xcreate 330,20,0,0
- Xiterate 3
- Xcreate 340,20,0,0
- Xiterate 3
- Xcreate 350,20,0,0
- Xiterate 3
- Xcreate 360,20,0,0
- Xiterate 3
- Xcreate 370,20,0,0
- Xiterate 3
- Xcreate 380,20,0,0
- Xiterate 3
- Xcreate 390,20,0,0
- X
- Xiterate 60
- X
- Xcreate 0,310,3,0
- X
- Xperpetual off
- X
- Xiterate 40
- X
- Xiterate 300
- X
- Xperpetual on
- X
- Xiterate 300
- X
- Xperpetual off
- X
- Xcollide on
- Xcreate 5,20,0,0
- X
- Xiterate 200
- X
- Xexit
- END_OF_FILE
- if test 1288 -ne `wc -c <'demo9'`; then
- echo shar: \"'demo9'\" unpacked with wrong size!
- fi
- # end of 'demo9'
- fi
- if test -f 'demo10' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo10'\"
- else
- echo shar: Extracting \"'demo10'\" \(6234 characters\)
- sed "s/^X//" >'demo10' <<'END_OF_FILE'
- X# Draw word and then drop it
- X# This demo was made by uncommenting the printf in item.c: item__create.
- X# Then, run xball, redirecting output to your demo file.
- X# Set the gravity to 0, then draw something with mouse button 3.
- X# Quit xball, modify the demo a litlle, and you are dome
- X
- Xgravity 0
- Xelasticity 60
- Xwindow_width 650
- Xcreate 33,60,0,0
- Xiterate 1
- Xcreate 33,82,0,0
- Xiterate 1
- Xcreate 35,108,0,0
- Xiterate 1
- Xcreate 37,132,0,0
- Xiterate 1
- Xcreate 39,150,0,0
- Xiterate 1
- Xcreate 39,164,0,0
- Xiterate 1
- Xcreate 40,176,0,0
- Xiterate 1
- Xcreate 41,179,0,0
- Xiterate 1
- Xcreate 34,58,0,0
- Xiterate 1
- Xcreate 40,56,0,0
- Xiterate 1
- Xcreate 62,55,0,0
- Xiterate 1
- Xcreate 82,55,0,0
- Xiterate 1
- Xcreate 92,58,0,0
- Xiterate 1
- Xcreate 108,70,0,0
- Xiterate 1
- Xcreate 124,86,0,0
- Xiterate 1
- Xcreate 136,102,0,0
- Xiterate 1
- Xcreate 139,122,0,0
- Xiterate 1
- Xcreate 136,140,0,0
- Xiterate 1
- Xcreate 128,160,0,0
- Xiterate 1
- Xcreate 122,176,0,0
- Xiterate 1
- Xcreate 114,186,0,0
- Xiterate 1
- Xcreate 98,192,0,0
- Xiterate 1
- Xcreate 82,195,0,0
- Xiterate 1
- Xcreate 72,196,0,0
- Xiterate 1
- Xcreate 69,197,0,0
- Xiterate 10
- Xcreate 147,183,0,0
- Xiterate 10
- Xcreate 218,185,0,0
- Xiterate 1
- Xcreate 217,177,0,0
- Xiterate 1
- Xcreate 217,165,0,0
- Xiterate 1
- Xcreate 217,153,0,0
- Xiterate 1
- Xcreate 218,141,0,0
- Xiterate 1
- Xcreate 218,127,0,0
- Xiterate 1
- Xcreate 219,115,0,0
- Xiterate 1
- Xcreate 219,101,0,0
- Xiterate 1
- Xcreate 218,85,0,0
- Xiterate 1
- Xcreate 217,73,0,0
- Xiterate 1
- Xcreate 217,65,0,0
- Xiterate 1
- Xcreate 218,57,0,0
- Xiterate 1
- Xcreate 221,53,0,0
- Xiterate 1
- Xcreate 225,51,0,0
- Xiterate 1
- Xcreate 231,52,0,0
- Xiterate 1
- Xcreate 239,60,0,0
- Xiterate 1
- Xcreate 243,74,0,0
- Xiterate 1
- Xcreate 247,90,0,0
- Xiterate 1
- Xcreate 250,106,0,0
- Xiterate 1
- Xcreate 252,120,0,0
- Xiterate 1
- Xcreate 255,134,0,0
- Xiterate 1
- Xcreate 258,146,0,0
- Xiterate 1
- Xcreate 260,156,0,0
- Xiterate 1
- Xcreate 263,164,0,0
- Xiterate 1
- Xcreate 265,167,0,0
- Xiterate 1
- Xcreate 267,171,0,0
- Xiterate 1
- Xcreate 269,173,0,0
- Xiterate 1
- Xcreate 271,175,0,0
- Xiterate 1
- Xcreate 272,176,0,0
- Xiterate 1
- Xcreate 274,173,0,0
- Xiterate 1
- Xcreate 276,163,0,0
- Xiterate 1
- Xcreate 278,147,0,0
- Xiterate 1
- Xcreate 278,133,0,0
- Xiterate 1
- Xcreate 279,123,0,0
- Xiterate 1
- Xcreate 278,113,0,0
- Xiterate 1
- Xcreate 276,101,0,0
- Xiterate 1
- Xcreate 275,91,0,0
- Xiterate 1
- Xcreate 275,81,0,0
- Xiterate 1
- Xcreate 275,73,0,0
- Xiterate 1
- Xcreate 276,69,0,0
- Xiterate 1
- Xcreate 277,67,0,0
- Xiterate 1
- Xcreate 278,63,0,0
- Xiterate 10
- Xcreate 321,134,0,0
- Xiterate 1
- Xcreate 327,135,0,0
- Xiterate 1
- Xcreate 337,133,0,0
- Xiterate 1
- Xcreate 345,131,0,0
- Xiterate 1
- Xcreate 351,128,0,0
- Xiterate 1
- Xcreate 353,124,0,0
- Xiterate 1
- Xcreate 354,118,0,0
- Xiterate 1
- Xcreate 350,108,0,0
- Xiterate 1
- Xcreate 348,98,0,0
- Xiterate 1
- Xcreate 344,95,0,0
- Xiterate 1
- Xcreate 341,96,0,0
- Xiterate 1
- Xcreate 333,97,0,0
- Xiterate 1
- Xcreate 327,100,0,0
- Xiterate 1
- Xcreate 317,106,0,0
- Xiterate 1
- Xcreate 309,116,0,0
- Xiterate 1
- Xcreate 307,128,0,0
- Xiterate 1
- Xcreate 308,140,0,0
- Xiterate 1
- Xcreate 312,150,0,0
- Xiterate 1
- Xcreate 315,160,0,0
- Xiterate 1
- Xcreate 323,166,0,0
- Xiterate 1
- Xcreate 335,168,0,0
- Xiterate 1
- Xcreate 355,170,0,0
- Xiterate 1
- Xcreate 365,170,0,0
- Xiterate 1
- Xcreate 365,168,0,0
- Xiterate 1
- Xcreate 368,168,0,0
- Xiterate 10
- Xcreate 425,110,0,0
- Xiterate 1
- Xcreate 419,112,0,0
- Xiterate 1
- Xcreate 409,116,0,0
- Xiterate 1
- Xcreate 401,119,0,0
- Xiterate 1
- Xcreate 395,125,0,0
- Xiterate 1
- Xcreate 392,131,0,0
- Xiterate 1
- Xcreate 390,139,0,0
- Xiterate 1
- Xcreate 392,145,0,0
- Xiterate 1
- Xcreate 396,153,0,0
- Xiterate 1
- Xcreate 404,161,0,0
- Xiterate 1
- Xcreate 407,163,0,0
- Xiterate 1
- Xcreate 411,165,0,0
- Xiterate 1
- Xcreate 431,169,0,0
- Xiterate 1
- Xcreate 447,173,0,0
- Xiterate 1
- Xcreate 440,57,0,0
- Xiterate 1
- Xcreate 439,63,0,0
- Xiterate 1
- Xcreate 437,73,0,0
- Xiterate 1
- Xcreate 436,85,0,0
- Xiterate 1
- Xcreate 437,95,0,0
- Xiterate 1
- Xcreate 438,107,0,0
- Xiterate 1
- Xcreate 440,119,0,0
- Xiterate 1
- Xcreate 442,133,0,0
- Xiterate 1
- Xcreate 445,145,0,0
- Xiterate 1
- Xcreate 446,153,0,0
- Xiterate 1
- Xcreate 449,161,0,0
- Xiterate 1
- Xcreate 453,169,0,0
- Xiterate 1
- Xcreate 457,173,0,0
- Xiterate 1
- Xcreate 461,176,0,0
- Xiterate 10
- Xcreate 521,102,0,0
- Xiterate 1
- Xcreate 519,103,0,0
- Xiterate 1
- Xcreate 515,104,0,0
- Xiterate 1
- Xcreate 509,106,0,0
- Xiterate 1
- Xcreate 501,109,0,0
- Xiterate 1
- Xcreate 495,113,0,0
- Xiterate 1
- Xcreate 489,119,0,0
- Xiterate 1
- Xcreate 486,129,0,0
- Xiterate 1
- Xcreate 483,139,0,0
- Xiterate 1
- Xcreate 482,149,0,0
- Xiterate 1
- Xcreate 485,155,0,0
- Xiterate 1
- Xcreate 491,158,0,0
- Xiterate 1
- Xcreate 503,161,0,0
- Xiterate 1
- Xcreate 519,163,0,0
- Xiterate 1
- Xcreate 527,164,0,0
- Xiterate 1
- Xcreate 531,162,0,0
- Xiterate 1
- Xcreate 533,56,0,0
- Xiterate 1
- Xcreate 531,66,0,0
- Xiterate 1
- Xcreate 529,74,0,0
- Xiterate 1
- Xcreate 528,82,0,0
- Xiterate 1
- Xcreate 526,92,0,0
- Xiterate 1
- Xcreate 527,104,0,0
- Xiterate 1
- Xcreate 528,114,0,0
- Xiterate 1
- Xcreate 530,124,0,0
- Xiterate 1
- Xcreate 532,134,0,0
- Xiterate 1
- Xcreate 534,144,0,0
- Xiterate 1
- Xcreate 538,152,0,0
- Xiterate 1
- Xcreate 541,155,0,0
- Xiterate 1
- Xcreate 542,155,0,0
- Xiterate 1
- Xcreate 570,113,0,0
- Xiterate 1
- Xcreate 582,115,0,0
- Xiterate 1
- Xcreate 594,115,0,0
- Xiterate 1
- Xcreate 608,114,0,0
- Xiterate 1
- Xcreate 618,111,0,0
- Xiterate 1
- Xcreate 621,107,0,0
- Xiterate 1
- Xcreate 623,103,0,0
- Xiterate 1
- Xcreate 621,95,0,0
- Xiterate 1
- Xcreate 619,89,0,0
- Xiterate 1
- Xcreate 616,87,0,0
- Xiterate 1
- Xcreate 610,85,0,0
- Xiterate 1
- Xcreate 602,85,0,0
- Xiterate 1
- Xcreate 598,86,0,0
- Xiterate 1
- Xcreate 595,89,0,0
- Xiterate 1
- Xcreate 587,97,0,0
- Xiterate 1
- Xcreate 579,105,0,0
- Xiterate 1
- Xcreate 573,113,0,0
- Xiterate 1
- Xcreate 571,121,0,0
- Xiterate 1
- Xcreate 570,125,0,0
- Xiterate 1
- Xcreate 570,131,0,0
- Xiterate 1
- Xcreate 572,135,0,0
- Xiterate 1
- Xcreate 575,138,0,0
- Xiterate 1
- Xcreate 583,142,0,0
- Xiterate 1
- Xcreate 591,145,0,0
- Xiterate 1
- Xcreate 605,146,0,0
- Xiterate 1
- Xcreate 619,148,0,0
- Xiterate 1
- Xcreate 631,149,0,0
- Xiterate 1
- Xcreate 637,148,0,0
- Xiterate 1
- Xcreate 640,147,0,0
- Xiterate 1
- Xcreate 652,155,0,0
- Xiterate 1
- Xcreate 75,241,0,0
- Xiterate 1
- Xcreate 119,237,0,0
- Xiterate 1
- Xcreate 167,233,0,0
- Xiterate 1
- Xcreate 213,227,0,0
- Xiterate 1
- Xcreate 253,224,0,0
- Xiterate 1
- Xcreate 287,223,0,0
- Xiterate 1
- Xcreate 319,225,0,0
- Xiterate 1
- Xcreate 337,231,0,0
- Xiterate 1
- Xcreate 337,233,0,0
- Xiterate 1
- Xcreate 334,245,0,0
- Xiterate 1
- Xcreate 331,259,0,0
- Xiterate 1
- Xcreate 333,261,0,0
- Xiterate 1
- Xcreate 336,262,0,0
- Xiterate 1
- Xcreate 346,264,0,0
- Xiterate 1
- Xcreate 368,266,0,0
- Xiterate 1
- Xcreate 396,266,0,0
- Xiterate 1
- Xcreate 430,264,0,0
- Xiterate 1
- Xcreate 468,260,0,0
- Xiterate 1
- Xcreate 510,257,0,0
- Xiterate 1
- Xcreate 564,257,0,0
- Xiterate 1
- Xcreate 596,254,0,0
- Xiterate 1
- Xcreate 618,251,0,0
- Xiterate 1
- Xcreate 656,253,0,0
- Xiterate 1
- Xcreate 657,253,0,0
- Xiterate 30
- Xset_velocity rel 0,-7
- Xgravity 10
- Xiterate 150
- Xexit
- END_OF_FILE
- if test 6234 -ne `wc -c <'demo10'`; then
- echo shar: \"'demo10'\" unpacked with wrong size!
- fi
- # end of 'demo10'
- fi
- if test -f 'demo11' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo11'\"
- else
- echo shar: Extracting \"'demo11'\" \(930 characters\)
- sed "s/^X//" >'demo11' <<'END_OF_FILE'
- Xcollide on
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 184,25,0,0
- Xcreate 14,53,1,0
- X
- X
- Xiterate 300
- X
- Xexit
- END_OF_FILE
- if test 930 -ne `wc -c <'demo11'`; then
- echo shar: \"'demo11'\" unpacked with wrong size!
- fi
- # end of 'demo11'
- fi
- if test -f 'demo12' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo12'\"
- else
- echo shar: Extracting \"'demo12'\" \(216 characters\)
- sed "s/^X//" >'demo12' <<'END_OF_FILE'
- X
- Xload_bitmap xball-x.xbm 10,10
- Xiterate 10
- Xload_bitmap xball-b.xbm 90,10
- Xiterate 10
- Xload_bitmap xball-a.xbm 170,10
- Xiterate 10
- Xload_bitmap xball-l.xbm 250,10
- Xiterate 10
- Xload_bitmap xball-l.xbm 310,10
- Xiterate 200
- X
- Xexit
- END_OF_FILE
- if test 216 -ne `wc -c <'demo12'`; then
- echo shar: \"'demo12'\" unpacked with wrong size!
- fi
- # end of 'demo12'
- fi
- if test -f 'demo13' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo13'\"
- else
- echo shar: Extracting \"'demo13'\" \(227 characters\)
- sed "s/^X//" >'demo13' <<'END_OF_FILE'
- Xelasticity 50
- X
- Xload_bitmap xball-x.xbm 10,10
- Xiterate 20
- Xload_bitmap xball-b.xbm 10,10
- Xiterate 20
- Xload_bitmap xball-a.xbm 10,10
- Xiterate 20
- Xload_bitmap xball-l.xbm 10,10
- Xiterate 20
- Xload_bitmap xball-l.xbm 10,10
- Xiterate 200
- X
- Xexit
- END_OF_FILE
- if test 227 -ne `wc -c <'demo13'`; then
- echo shar: \"'demo13'\" unpacked with wrong size!
- fi
- # end of 'demo13'
- fi
- if test -f 'demo14' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'demo14'\"
- else
- echo shar: Extracting \"'demo14'\" \(134 characters\)
- sed "s/^X//" >'demo14' <<'END_OF_FILE'
- Xelasticity 90
- Xload_bitmap man.xbm 10,10
- Xiterate 60
- Xload_bitmap man.xbm 160,10
- Xiterate 60
- Xload_bitmap man.xbm 310,10
- Xiterate 400
- X
- Xexit
- END_OF_FILE
- if test 134 -ne `wc -c <'demo14'`; then
- echo shar: \"'demo14'\" unpacked with wrong size!
- fi
- # end of 'demo14'
- fi
- echo shar: End of archive 5 \(of 5\).
- cp /dev/null ark5isdone
- MISSING=""
- for I in 1 2 3 4 5 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have unpacked all 5 archives.
- rm -f ark[1-9]isdone
- else
- echo You still need to unpack the following archives:
- echo " " ${MISSING}
- fi
- ## End of shell archive.
- exit 0
-
- exit 0 # Just in case...
- --
- // chris@IMD.Sterling.COM | Send comp.sources.x submissions to:
- \X/ Amiga - The only way to fly! | sources-x@imd.sterling.com
- "It's intuitively obvious to the |
- most casual observer..." | GCS d+/-- p+ c++ l+ m+ s++/+ g+ w+ t+ r+ x+
-