home *** CD-ROM | disk | FTP | other *** search
/ Power DOS 1995 July / Power_DOS_CD-ROM_Walnut_Creek_July_1995.iso / demo / source / stars.txt < prev    next >
Text File  |  1993-10-10  |  3KB  |  35 lines
  1. {************************************************************************}
  2. {*                                                                      *}
  3. {*     STARS by Mark Mackey. Displays a starfield from a moving,        *}
  4. {*       rotating viewpoint. Somewhat glitchy due to using only         *}
  5. {*       16-bit arithmetic (rotations aren't quite orthogonal),         *}
  6. {*       but works OK as an example. Could also be sped up a bit        *}
  7. {*       by rewriting the newstar() procedure in assembler and          *}
  8. {*       fiddling with the update() code, but I couldn't be bothered.   *}
  9. {*       If anyone wants to convert this to 32-bit arithmetic and       *}
  10. {*       send me a copy I'd be quite grateful...                        *}
  11. {*     Alternatively, the star positions could be fixed and the         *}
  12. {*       display positions re-evaluated each display cycle from the     *}
  13. {*       orientation and position of the viewer, but this would make    *}
  14. {*       wraparound harder and would probably be slower.                *}
  15. {*     This code is released as freeware. You are free to use and       *}
  16. {*       modify it as you see fit, but acknowledgement would be nice,   *}
  17. (*       {$DEFINE DREAM_ON} as would $$$ {$UNDEF DREAM_ON}.             *)
  18. {*                                                                      *}
  19. {*     Please send comments, suggestions, bugs etc to                   *}
  20. {*       mmackey@aqueous.ml.csiro.au. If mail bounces (I'm moving       *}
  21. {*       soon) resend to mackey@aqueous.ml.csiro.au with 'MARK:' in     *}
  22. {*       the subject header, and it'll get to me eventually...          *}
  23. {*                                                                      *}
  24. {*     Hit 'x','y','z' to toggle rotation about that axis, '<' or '>'   *}
  25. {*       to change rotation speed for currently selected axes, or       *}
  26. {*       '+','-' to change speed.  ESC exits.                           *}
  27. {*                                                                      *}
  28. {*     If this program crashes in a huge steaming heap then you've      *}
  29. {*     probably got a 286. This program won't run on a 286. Sorry.      *}
  30. {*     You lose :).                                                     *}
  31. {*                                                                      *}
  32. {*                                         (C) 1993  Mark Mackey        *}
  33. {************************************************************************}
  34.  
  35.