\SCREEN 0,0,19\LOC 0,0\WIDTH 320 DOTS BOTH\HEIGHT 199\OVERLAY 0\READ PR_ORDER.MAC\READ 081119PW.FON\JUMP BEARING
\X INFO\CLEAR SCREEN\HUE C=255,255 S=55,33,42\HUE C=7,7 S=42,42,42\LOC 0,0\HUE C=3,3 S=44,55,22\ON KEY 7181
This program shows a bearing rolling in space.  The drawings were created with 3D Studio, a rendering program from Autodesk, by E. Robert Galbraith, PCC ERO II on America Online.
\"
Mr. Galbraith created the image using twelve frames.  Each ball rotates 36 degrees per frame, and the outer race, marked with "ASCo" (for Animated Software Company) moves 72 degrees per frame.
\"
The image took 3D studio about 2 hours and 20 minutes to render on a 486.  Most of the time was spent doing reflective environment mapping of the chrome balls.
\ON KEY 14624 JUMP REGOIT\ON KEY F10 JUMP ENDIT
\WAIT RET -1 "<RET>: Continue         <SPACE BAR>:View               <F10>:Exit"
\LOC 0,0
The frames were saved as PCX images, then displayed and "grabbed" with a screen capture utility from THE ANIMATED SOFTWARE COMPANY, called SCRNSAVE.COM.
\"
SCRNSAVE.COM saves the frames in the format that RUSSELL'S ANIMATION MACHINE uses.  The frame name of the first frame was SAA00119.PIC.  The second frame was SAA00119.PIC, the third was SAA00219.PIC, and so on.
\"
\"
\"
\"
\WAIT RET 4411
\LOC 0,0
When SCRNSAVE.COM saves images, the first frame will be in SAA00119.PIC, the second in SAA00219.PIC, and so on.
\"
For each image a corresponding HUE file is created.  The HUE (or "palette") file names were SAA00119.HUE, SAA00219.HUE, etc.  Since the hues do not change in the following animation, only one hue file is used.
\"
\"
\"
\WAIT RET 4411
\LOCATE 0,0
To animate the images, the frames were read into RUSSELL'S ANIMATION MACHINE (also known as P11) and then the file containing ALL the frames was written out as one file called BEARING.PIC.
\"
One of the HUE files is also read in to apply the color pallete that the frames were originally created with.
\"
To allow the images to be seen on a small machine a smaller version was also created, by scaling the images, called SMALBEAR.PIC.  It will be shown automatically if the large image is missing or can't be loaded.
\"
\WAIT RET 4411
\LOCATE 0,0
This program was written by Russell Hoffman, Owner and Chief Programmer, THE ANIMATED SOFTWARE COMPANY.
\"
The animation is done with a SHAREWARE animation tool.  Function Key 2 (<F2>) lets you print an order form for RUSSELL'S ANIMATION MACHINE.  It can also be downloaded from a number of services, or purchased from various SHAREWARE distributors.
\"
The registration fee for RUSSELL'S ANIMATION MACHINE is just $25.00, and of course, this demo shows just a tiny fraction of what RUSSELL'S ANIMATION MACHINE can do!
\"
\"
\WAIT RET 4444\JUMP REGOIT
\X BEARING\SCREEN 0,0,19\ON KEY F2 JUMP PR_ORD
\READ BEARING.HUE
\ON KEY F10 JUMP ENDIT
\ON ERROR JUMP SMALLBEAR\READ BEARING.PIC\CLEAR ON ERROR
\X ANIMATE_BIG\ROUNDS -1 SPEED 22
\CLEAR SHOW\SHOW 0,0,1\WAIT NOW 22
\SHOW LOCATION=0,0 FRAMES=1,12 WINDOW=72,41,249,135\JUMP ENDIT
\X SMALLBEAR\ON ERROR JUMP FILES_MISSING\READ SMALBEAR.PIC
\CLEAR ON ERROR\ON KEY F1 JUMP INFO
\CLEAR SCREEN\LOC 0,0\WID 320 DOTS\HEIGHT 199\OVER 0,A,144
<F1>: INFORMATION                     <F10>: QUIT
\X ANIMATE_IT\ROUNDS -1 SPEED 22
\CLEAR SHOW\SHOW 78,65,1\WAIT NOW 22\SHOW LOCATION=78,65 FRAMES=1,12
\X ENDIT\END
\X FILES_MISSING\LOC 0,0
Sorry!  I cannot find, or cannot read, the file BEARING.PIC or SMALBEAR.PIC.  Therefore I cannot run this program.
\"
Be sure you have installed it and/or downloaded it correctly!
\"
It's possible you do not have enough RAM for even the small version called SMALBEAR.PIC.  Try removing some TSR programs to free memory, or use EXPANDED MEMORY (LIM) to run this application.
\"
CONTACT RUSSELL D. HOFFMAN, OWNER AND CHIEF PROGRAMMER, IF YOU NEED HELP
(800) 551-2726 OR (619) 720-7261
\WAIT RET 4444 "PRESS <RET> TO EXIT TO DOS"
\END
\X PR_ORD\ON KEY 7181\ON KEY 14624\ON KEY F10
\CLEAR SCREEN\HUE C=255,255 S=55,33,42\HUE C=7,7 S=42,42,42\LOC 0,0\HUE C=3,3 S=44,55,22
THANK YOU FOR YOUR ORDER!!!
\CALLM PRINT_ORDER
\X REGOIT\HUE C=7,7 S=7,11,15\HUE C=255,255 S=22,23,23\HUE C=3,3 S=4,6,7\JUMP BEARING
\END
