home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / progs / pmglobe / fastspin.pmg next >
Encoding:
Text File  |  1993-05-09  |  1.5 KB  |  38 lines
  1. /* Spin the globe as fast as possible */
  2.  
  3. /* For best results, use a fast machine and make the globe very small. */
  4. /* Minimize to desktop is highly recommended (see PMGLOBE.DOC); on a   */
  5. /* 486-25 or better, this should give quite smooth motion, using the   */
  6. /* 32-bit version of PMGlobe.                                          */
  7.  
  8. /* This sample macro is unclassified.  Author: Mike Cowlishaw, based   */
  9. /* on an idea by W. Eliot Kimber.                                      */
  10.  
  11. lonstep=19                    /* degrees to rotate each time */
  12.                               /* should be in range -180 to 180 */
  13.  
  14. "EXTRACT title showdraw idledraw margin diag"
  15. signal on halt
  16. "SET TITLE Rotating PMGlobe"  /* for title bar */
  17. "SET SHOWDRAW OFF"            /* no partial draws */
  18. "SET IDLEDRAW ON"             /* hog not */
  19. "SET MARGIN   10"             /* extra edge space, please */
  20. "SET DIAG     OFF"            /* and no slowdown */
  21. do forever                    /* only 'halt macro' will stop */
  22.   "EXTRACT viewlon"           /* allow update by user */
  23.   viewlon=viewlon-lonstep
  24.   /* Both checks are here in case of negative rotation */
  25.   if       viewlon<-180 then viewlon=viewlon+360
  26.    else if viewlon> 180 then viewlon=viewlon-360
  27.   "SET VIEWLON" viewlon  /* New view, please */
  28.   "WAIT REDRAW"          /* Wait until drawn */
  29.   end
  30.  
  31. halt:  /* Restore settings */
  32. "SET IDLEDRAW" idledraw
  33. "SET SHOWDRAW" showdraw
  34. "SET MARGIN"   margin
  35. "SET TITLE"    title
  36. "SET DIAG"     diag
  37. exit
  38.