home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / drawshape2.ufn < prev    next >
Encoding:
Text File  |  2001-07-03  |  2.7 KB  |  135 lines
  1. 2
  2. 0
  3. 0
  4. 0
  5. IHEIGHT=40
  6. IWIDTH=40
  7. 0. 
  8. 1. 
  9. 2. Initialize = RunStop(0),                      ; unclick Run button~PixNumFrames(2),~pixactive(1), pixsize(2), pixon,~PixLoad(-1, "hivprot", "", "gif", 1) ; load a background~pixactive(2), pixcopy(1), pixactive(1),~V0.(int(ran*PixFrameWidth/2)),   ; starting X~V1.(int(ran*PixFrameHeight/2)),  ; starting Y~v2.(1), v3.(1), v8.(5),          ; starting direction~Ex(me+1),                        ; load the shape index~PixShapeSet(1, 1, 2, rgb(128,255,0)),~PixPatternSet(0, rgb(255,128,0), rgb(0,0,0)),~TxtLabel("Buttons Flip Bkgn")~ToolTip(,"Left-Right Speed","Up-Down Speed","Left-Right Flip", "Up-Down Flip")~goto(me+2), ~
  10. 3. Set Shape Array = put(0, 9001),~put(1, 11001), ; R~put(2, 11000), ; L~put(4, 11003), ; B~put(5, 11009), ; BR~put(6, 11007), ; BL~put(8, 11002), ; T~put(9, 11008), ; TR~put(10,11006)  ; TL~
  11. 4. Draw Shape = pixactive(1), PixAutoRepaint(0)~x.(v0), y.(v1), s.(v8),~e.(Edge(v0, v1, iWidth, iHeight, PixFrameWidth, PixFrameHeight)), ; check edges~v2.(iif( e and 3, iif(e and 1, -1, 1), v2)),      ; direction flags~v3.(iif( e and 12, iif(e and 4, -1, 1),v3)),~v0.(v0+(in1*v2)), v1.(v1+(in2*v3)),               ; update x,y position~v8.( iif(in1, iif(v2>0, 1, 2),0) +                ; shape index~     iif(in2, iif(v3>0, 4, 8),0)),~PixCombine(2,, x, y, iWidth, iHeight, x, y),     ; erase the old shape~ex(me+1)               ; run the image flipper~PixShape(v0, v1, iWidth, iHeight, get(v8)),      ; draw new shape~out(e), ; output flags if direction changed~PixRepaint, PixAutoRepaint(1)
  12. 5. Image Flipper = Switch(((e and 3) > 0) and in3, me+1, 0), ; East West flip~Switch(((e and 12) > 0) and in4, me+2, 0) ; North South flip
  13. 6. East West Flip = pixactive(2), Pixflip(2), ; flip the background image~pixactive(1), pixflip(2)  ; flip the foreground (could just copy)
  14. 7. North South Flip = Pixactive(2), Pixflip(1),  ; flip the background image~pixactive(1), pixflip(1)   ; flip the foreground (could just copy)
  15. 8. 
  16. 9. 
  17. 10. 
  18. 11. 
  19. 12. 
  20. 13. 
  21. 14. 
  22. 15. 
  23. 16. 
  24. 17. 
  25. 18. 
  26. 19. 
  27. 20. 
  28. 21. 
  29. 22. 
  30. 23. 
  31. 24. 
  32. 25. 
  33. 26. 
  34. 27. 
  35. 28. 
  36. 29. 
  37. 30. 
  38. 31. 
  39. 32. 
  40. 33. 
  41. 34. 
  42. 35. 
  43. 36. 
  44. 37. 
  45. 38. 
  46. 39. 
  47. 40. 
  48. 41. 
  49. 42. 
  50. 43. 
  51. 44. 
  52. 45. 
  53. 46. 
  54. 47. 
  55. 48. 
  56. 49. 
  57. 50. 
  58. 51. 
  59. 52. 
  60. 53. 
  61. 54. 
  62. 55. 
  63. 56. 
  64. 57. 
  65. 58. 
  66. 59. 
  67. 60. 
  68. 61. 
  69. 62. 
  70. 63. 
  71. 64. 
  72. 65. 
  73. 66. 
  74. 67. 
  75. 68. 
  76. 69. 
  77. 70. 
  78. 71. 
  79. 72. 
  80. 73. 
  81. 74. 
  82. 75. 
  83. 76. 
  84. 77. 
  85. 78. 
  86. 79. 
  87. 80. 
  88. 81. 
  89. 82. 
  90. 83. 
  91. 84. 
  92. 85. 
  93. 86. 
  94. 87. 
  95. 88. 
  96. 89. 
  97. 90. 
  98. 91. 
  99. 92. 
  100. 93. 
  101. 94. 
  102. 95. 
  103. 96. 
  104. 97. 
  105. 98. 
  106. 99. 
  107. 100. 
  108. 101. 
  109. 102. 
  110. 103. 
  111. 104. 
  112. 105. 
  113. 106. 
  114. 107. 
  115. 108. 
  116. 109. 
  117. 110. 
  118. 111. 
  119. 112. 
  120. 113. 
  121. 114. 
  122. 115. 
  123. 116. 
  124. 117. 
  125. 118. 
  126. 119. 
  127. 120. 
  128. 121. 
  129. 122. 
  130. 123. 
  131. 124. 
  132. 125. 
  133. 126. 
  134. 127.
  135.