home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / imagery / !TinyImage / Overlays / 25 < prev    next >
Encoding:
Text File  |  1992-10-22  |  3.9 KB  |  2 lines
  1.  
  2. †@ô><Imagery$Dir>.Overlays.25
  3. †J
  4. Ýòpoll_25
  5. †T0òinpic:æ3,63:ð69,300,300:ð69,300,300:òpicpos
  6. †^ç X%=OX% € Y%=OY% … ™Lr\
  7. †h òmapline
  8. †r2ç BUT%<>1 € BUT%<>4 … òoutpic:òquickdrawmain:á
  9. †|ç BUT%=4 … ™lt\
  10. †ŷòeoc
  11. †‘ȉ FUCO% Ê
  12. †ŒÉ 2:ŷ X%(1),Y%(1),X%,Y%
  13. †¤5É 3:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%,Y%
  14. †®cÉ 4:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%,Y%:ŷ X%,Y%,X%(1),Y%(1)
  15. †¸oÉ 5:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1)
  16. †Â◰É 6:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),X%,Y%
  17. †Ì‡É 7:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),X%(6),Y%(6):ŷ X%(6),Y%(6),X%,Y%
  18. †ÖËÉ 8:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),X%(6),Y%(6):ŷ X%(6),Y%(6),X%(7),Y%(7):ŷ X%(7),Y%(7),X%,Y%:ŷ X%(5),Y%(5),X%,Y%
  19. †àË
  20. †ê+FUCO%=1:òletgo:òoutpic:òquickdrawmain:á
  21. †ôòeoc
  22. †þç FUCO%=8 … å ™\f]
  23. ‡FX%(FUCO%)=X%:Y%(FUCO%)=Y%:ç FUCO%<>4 … ŷ X%(FUCO%),Y%(FUCO%),X%,Y%
  24. ‡9ç FUCO%=3 ☓ FUCO%=7 … ŷ X%(FUCO%-2),Y%(FUCO%-2),X%,Y%
  25. ‡#OX%=X%:OY%=Y%:FUCO%+=1:òletgo:á
  26. ‡&¥X%(8)=X%:Y%(8)=Y%:ãL%=1 ¸ 3:ŷ X%(L%),Y%(L%),X%(L%+1),Y%(L%+1):ŷ X%(L%+4),Y%(L%+4),X%(L%+5),Y%(L%+5):í:ŷ X%(1),Y%(1),X%(4),Y%(4):ŷ X%(5),Y%(5),X%(8),Y%(8):FUCO%=1
  27. ‡0$òoutpic:òquickdrawmain:òpixelmap
  28. ‡:á
  29. ‡D
  30. ‡N
  31. Ýòmapline
  32. ‡Xȉ FUCO% Ê
  33. ‡bDÉ 2:òeoc:ŷ X%(1),Y%(1),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(1),Y%(1),X%,Y%
  34. ‡lDÉ 3:òeoc:ŷ X%(2),Y%(2),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(2),Y%(2),X%,Y%
  35. ‡vnÉ 4:òeoc:ŷ X%(1),Y%(1),OX%,OY%:ŷ X%(3),Y%(3),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(1),Y%(1),X%,Y%:ŷ X%(3),Y%(3),X%,Y%
  36. ‡€DÉ 6:òeoc:ŷ X%(5),Y%(5),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(5),Y%(5),X%,Y%
  37. ‡⇩DÉ 7:òeoc:ŷ X%(6),Y%(6),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(6),Y%(6),X%,Y%
  38. ‡“nÉ 8:òeoc:ŷ X%(5),Y%(5),OX%,OY%:ŷ X%(7),Y%(7),OX%,OY%:OX%=X%:OY%=Y%:ŷ X%(5),Y%(5),X%,Y%:ŷ X%(7),Y%(7),X%,Y%
  39. ‡fiË
  40. ଇ
  41. ‡²
  42. ‡¼Ýòpixelmap
  43. ‡Æ-òspinit:òspbuf(161*1024):ç Q% … òspbuferr
  44. ‡Ðòbackuppic
  45. ‡ÚÈ− "Hourglass_On"
  46. ‡ä+dsta=¶((X%(6)-X%(5))^2+(Y%(5)-Y%(6))^2)
  47. ‡î+dstb=¶((X%(8)-X%(7))^2+(Y%(7)-Y%(8))^2)
  48. ‡ø1ç dsta>dstb … steps%=dsta Ŵ2 ⇧ steps%=dstb Ŵ2
  49. fifxsa=(X%(2)-X%(1))/steps%
  50. fi fxsb=(X%(3)-X%(4))/steps%
  51. fifysa=(Y%(2)-Y%(1))/steps%
  52. fi fysb=(Y%(3)-Y%(4))/steps%
  53. fi*txsa=(X%(6)-X%(5))/steps%
  54. fi4txsb=(X%(7)-X%(8))/steps%
  55. fi>tysa=(Y%(6)-Y%(5))/steps%
  56. fiHtysb=(Y%(7)-Y%(8))/steps%
  57. fiRã cb%=0 ¸ steps%
  58. fi\fxa=X%(1)+cb%*fxsa
  59. fiffxb=X%(4)+cb%*fxsb
  60. fipfya=Y%(1)+cb%*fysa
  61. fizfyb=Y%(4)+cb%*fysb
  62. fi☓txa=X%(5)+cb%*txsa
  63. fi‰txb=X%(8)+cb%*txsb
  64. fi—tya=Y%(5)+cb%*tysa
  65. ޢtyb=Y%(8)+cb%*tysb
  66. fi¬Fòinpic:æ3,63:ð69,300,300:ð69,300,300:òmapln:òoutpic:òquickdrawmain
  67. fi¶í
  68. fiÀ òspinit
  69. fiÊÈ− "Hourglass_Off"
  70. fiÔá
  71. fiÞ
  72. fiè Ýòmapln
  73. fiòê ns%,fxs,fys,txs,tys,c%
  74. fiü'ns%=1+¶((txb-txa)^2+(tya-tyb)^2) Ŵ2
  75. fl'fxs=(fxb-fxa)/ns%:txs=(txb-txa)/ns%
  76. fl'fys=(fyb-fya)/ns%:tys=(tyb-tya)/ns%
  77. flã c%=0 ¸ ns%
  78. fl$]È−&2E,297,SPBUF%,"PIC",(fxa+c%*fxs)Ŵ2,(fya+c%*fys)Ŵ4 ¸ ,,,,,col%,tin%:æ USE%,col% È† tin%
  79. fl.Aç TRASP%?¤findpalent(col%,tin%)=0 … ð69,txa+c%*txs,tya+c%*tys
  80. fl8í
  81. flBá
  82. flL
  83. flV
  84. Ýòkill_25
  85. fl`
  86. òinpic
  87. fljòeoc
  88. fltȉ FUCO% Ê
  89. fl~É 2:ŷ X%(1),Y%(1),X%,Y%
  90. fl⇦5É 3:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%,Y%
  91. fl‹gÉ 4:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),OX%,OY%:ŷ OX%,OY%,X%(1),Y%(1)
  92. fl†oÉ 5:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1)
  93. fl¦ŶÉ 6:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),OX%,OY%
  94. fl°flÉ 7:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),X%(6),Y%(6):ŷ X%(6),Y%(6),OX%,OY%
  95. flºÏÉ 8:ŷ X%(1),Y%(1),X%(2),Y%(2):ŷ X%(2),Y%(2),X%(3),Y%(3):ŷ X%(3),Y%(3),X%(4),Y%(4):ŷ X%(4),Y%(4),X%(1),Y%(1):ŷ X%(5),Y%(5),X%(6),Y%(6):ŷ X%(6),Y%(6),X%(7),Y%(7):ŷ X%(7),Y%(7),OX%,OY%:ŷ X%(5),Y%(5),OX%,OY%
  96. flÄË
  97. flÎ)FUCO%=1:òoutpic:òquickdrawmain:òletgo
  98. flØá
  99. ÿ