home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / imagery / !TinyImage / Overlays / 38 < prev    next >
Encoding:
Text File  |  1992-10-22  |  660 b   |  23 lines

  1.  
  2. †@ô><Imagery$Dir>.Overlays.38
  3. †J
  4. Ýòpoll_38
  5. †Tç FUST%<2 … òrectpoll:á
  6. †^òsupixtrans
  7. †h3RW%=»¤gi(21,13):GW%=»¤gi(21,15):BW%=»¤gi(21,17)
  8. †r!RW%=RW%*2:GW%=GW%*2:BW%=BW%*2
  9. †|;ãL%=0 ¸ 255:È− "ColourTrans_ColourNumberToGCOL",L% ¸ G%
  10. †ŷeRC%=((G%€%1111)*RW%)Ŵ100:GC%=((((G%€48)>>2)+(G%€3))*GW%)Ŵ100:BC%=((((G%€192)>>4)+(G%€3))*BW%)Ŵ100
  11. †‘ç RC%>15 … RC%=15
  12. †Œç GC%>15 … GC%=15
  13. †¤ç BC%>15 … BC%=15
  14. †®TC%=(((RC%€3)+(GC%€3)+(BC%€3))Ŵ3):TC%=TC%+(RC%€12)+((GC%€12)<<2)+((BC%€12)<<4):È−"ColourTrans_GCOLToColourNumber",TC% ¸ TC%
  15. †¸TRANSTAB%?L%=TC%:í
  16. †ÂAA%=VARS:Ö transarea:È− "Hourglass_Off":FUST%=0:òforcedrawmain
  17. †Ìá
  18. †Ö
  19. †à
  20. Ýòkill_38
  21. †êòclosewind(21):òmeoc
  22. †ôá
  23. ÿ