home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / drawstar.ufn < prev    next >
Text File  |  2001-07-06  |  2KB  |  134 lines
  1. 0
  2. 1
  3. 0
  4. 0
  5. EDGEDETECT(current, position, size, outer, inner=0) = IIF(position <= inner, 1, IIF((position+size) >= outer, -1, current)) ~; current must be +/-1, returns current if not at edge~
  6. 0. 
  7. 1. 
  8. 2. Initialize = RunStop(0),                 ; pop out Run button~pixactive(1), pixsize(320,240), Pixon, pixfill(0),~V0.(ran*160), V1.(ran*120), ; initialize starting X, Y~v2.(1), v3.(1),             ; initialize direction flags~PixShapeSet(1, 1, 0, 0),~PixPatternSet(0, rgb(255,128,0), 0),~goto(me+1),~
  9. 3. Draw Shape = pixactive(1),~a.(v2), b.(v3),                         ; save current direction flags~v2.(edgedetect(v2, v0, 40, 320)),       ; get new X direction flag~v3.(edgedetect(v3, v1, 40, 240)),       ; get new Y direction flag~v0.(v0+(v2*IN1)), v1.(v1+(v3*IN2)),     ; calculate new position~o.( iif( a==v2, 0, 1) + iif( b==v3, 0, 2)) ; get direction flags~Switch( o , me+1 , 0),                  ; image process on edge hit~PixShape(v0, v1, 40, 40, 9001,1),       ; draw the shape~out(o) ; output flags if direction changed
  10. 4. imageprocess = PixSharpen()
  11. 5. 
  12. 6. 
  13. 7. 
  14. 8. 
  15. 9. 
  16. 10. 
  17. 11. 
  18. 12. 
  19. 13. 
  20. 14. 
  21. 15. 
  22. 16. 
  23. 17. 
  24. 18. 
  25. 19. 
  26. 20. 
  27. 21. 
  28. 22. 
  29. 23. 
  30. 24. 
  31. 25. 
  32. 26. 
  33. 27. 
  34. 28. 
  35. 29. 
  36. 30. 
  37. 31. 
  38. 32. 
  39. 33. 
  40. 34. 
  41. 35. 
  42. 36. 
  43. 37. 
  44. 38. 
  45. 39. 
  46. 40. 
  47. 41. 
  48. 42. 
  49. 43. 
  50. 44. 
  51. 45. 
  52. 46. 
  53. 47. 
  54. 48. 
  55. 49. 
  56. 50. 
  57. 51. 
  58. 52. 
  59. 53. 
  60. 54. 
  61. 55. 
  62. 56. 
  63. 57. 
  64. 58. 
  65. 59. 
  66. 60. 
  67. 61. 
  68. 62. 
  69. 63. 
  70. 64. 
  71. 65. 
  72. 66. 
  73. 67. 
  74. 68. 
  75. 69. 
  76. 70. 
  77. 71. 
  78. 72. 
  79. 73. 
  80. 74. 
  81. 75. 
  82. 76. 
  83. 77. 
  84. 78. 
  85. 79. 
  86. 80. 
  87. 81. 
  88. 82. 
  89. 83. 
  90. 84. 
  91. 85. 
  92. 86. 
  93. 87. 
  94. 88. 
  95. 89. 
  96. 90. 
  97. 91. 
  98. 92. 
  99. 93. 
  100. 94. 
  101. 95. 
  102. 96. 
  103. 97. 
  104. 98. 
  105. 99. 
  106. 100. 
  107. 101. 
  108. 102. 
  109. 103. 
  110. 104. 
  111. 105. 
  112. 106. 
  113. 107. 
  114. 108. 
  115. 109. 
  116. 110. 
  117. 111. 
  118. 112. 
  119. 113. 
  120. 114. 
  121. 115. 
  122. 116. 
  123. 117. 
  124. 118. 
  125. 119. 
  126. 120. 
  127. 121. 
  128. 122. 
  129. 123. 
  130. 124. 
  131. 125. 
  132. 126. 
  133. 127.
  134.