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

  1.  
  2. †@ô><Imagery$Dir>.Overlays.23
  3. †J
  4. Ýòpoll_23
  5. †Tç FUST%<2 … òrectpoll:á
  6. †^›ç FUCO%=0 … òinpic:òeoc:È› X%(0),Y%(0),OX%-X%(0),OY%-Y%(0):òoutpic:òquickdrawmain:X%(1)=X%(0):Y%(1)=Y%(0):X%(2)=OX%:Y%(2)=OY%:FUST%=0:FUCO%=1:á
  7. †hXòspbuf(¤spritesize(X%(2)-X%(1),Y%(2)-Y%(1),“(¤high(8,14)))):ç Q% … òspinit:òspbuferr
  8. †rsòinpic:òeoc:È› X%(1),Y%(1),X%(2)-X%(1),Y%(2)-Y%(1):GRN$="GRAB":È−&2E,272,SPBUF%,"GRAB",,X%(1),Y%(1),X%(2),Y%(2)
  9. †|Iç ¤high(8,14) … È−&2E,285,SPBUF%,"GRAB":GRABM%=8:òfillmask ⇧ GRABM%=0
  10. †ŷ]ògrabflip:SCALE%!8=X%(2)-X%(1):SCALE%!12=Y%(2)-Y%(1):!SCALE%=OX%-X%(0):SCALE%!4=OY%-Y%(0)
  11. †‘dÈ−&2E,308,SPBUF%,"GRAB",X%(0),Y%(0),GRABM%,SCALE%:òoutpic:FUST%=0:FUCO%=0:òspinit:òquickdrawmain
  12. †Œá
  13. †¤
  14. †®
  15. Ýòkill_23
  16. †¸„òclosewind(8):ç FUCO%=1 € FUST%=1 … òinpic:òeoc:È› X%(1),Y%(1),X%(2)-X%(1),Y%(2)-Y%(1):È› X%(0),Y%(0),OX%-X%(0),OY%-Y%(0):òoutpic:òquickdrawmain:á
  17. †Â[ç FUCO%=1 … òinpic:òeoc:È› X%(1),Y%(1),X%(2)-X%(1),Y%(2)-Y%(1):òoutpic:òquickdrawmain:á
  18. †ÌUç FUST%=1 … òinpic:òeoc:È› X%(0),Y%(0),OX%-X%(0),OY%-Y%(0):òoutpic:òquickdrawmain
  19. †Öá
  20. ÿ