home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Macros / StdColorSet < prev   
Encoding:
Text File  |  1990-09-23  |  797 b   |  29 lines
  1. /* StdColorSet - Impose standard HyperBook color set on current page.
  2.    Changes the display to 16 colors first, then changes it back after.
  3. */
  4.  
  5. p = currentpage()
  6. n = getpagecolors(p)
  7. call setpagecolors(p,16)
  8.  
  9. call setpagergb(p, 0, c2d('fff'x))
  10. call setpagergb(p, 1, c2d('000'x))
  11. call setpagergb(p, 2, c2d('f00'x))
  12. call setpagergb(p, 3, c2d('7ac'x))
  13.  
  14. call setpagergb(p, 4, c2d('090'x))
  15. call setpagergb(p, 5, c2d('fca'x))
  16. call setpagergb(p, 6, c2d('55f'x))
  17. call setpagergb(p, 7, c2d('2ef'x))
  18.  
  19. call setpagergb(p, 8, c2d('f0c'x))
  20. call setpagergb(p, 9, c2d('a0f'x))
  21. call setpagergb(p,10, c2d('950'x))
  22. call setpagergb(p,11, c2d('3f1'x))
  23. call setpagergb(p,12, c2d('fe0'x))
  24. call setpagergb(p,13, c2d('ccc'x))
  25. call setpagergb(p,14, c2d('f80'x))
  26. call setpagergb(p,15, c2d('666'x))
  27.  
  28. call setpagecolors(p,n)
  29.