home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_1 / softstep / softstep3.msi / Data1.cab / drawshape1.ufn < prev    next >
Text File  |  2001-07-06  |  2KB  |  137 lines
  1. 4
  2. 0
  3. 0
  4. 0
  5. FHEIGHT=240
  6. FWIDTH=320
  7. IHEIGHT=60
  8. IWIDTH=60
  9. 0. 
  10. 1. 
  11. 2. Initialize = pixactive(1), pixsize(fWidth,fHeight), Pixon, pixfill(0),~V0.(int(ran*fWidth/2)), V1.(int(ran*fHeight/2)), v8.(5) ; starting X, Y, direction~v2.(1), v3.(1),~PixShapeSet(1, 1, 0, 0),~RunStop(0),   ; pop out Run button~ex(me+1) ; set up shape array~goto(me+2),~
  12. 3. Set Shape Array = ; Circle/Ellipse shapes~~w.(7000),      ; Circle=7000, Ellipse=8000~z.(8)          ; 0=180, 8=270~put(0, w),~put(1, w+6),   ; R~put(2, w+5),   ; L~put(4, w+8),   ; B~put(5, w+4+z), ; BR~put(6, w+2+z), ; BL~put(8, w+7),   ; T~put(9, w+3+z), ; TR~put(10,w+1+z)  ; TL~
  13. 4. Draw Shape = pixactive(1),~PixAutoRepaint(0),        ; turn off auto repaint for flicker free animation~PixPatternSet(0, 0, 0),       ; erase old shape             ~PixShape(v0, v1, iWidth, iHeight, get(v8)),~e.(Edge(v0, v1, iWidth, iHeight, fWidth, fHeight)),  ; look for edge hits~v2.(iif( e and 3, iif(e and 1, -1, 1), v2)),       ; calculate direction flags~v3.(iif( e and 12, iif(e and 4, -1, 1),v3)),~v0.(v0+(in1*v2)), v1.(v1+(in2*v3)),                ; update positions~v8.( iif(in1, iif(v2>0, 1, 2),0) +                 ; update Shape index~     iif(in2, iif(v3>0, 4, 8),0)),~PixPatternSet(0, rgb(255,128,0), 0),~PixShape(v0, v1, iWidth, iHeight, get(v8)),      ; draw the shape~PixRepaint, PixAutoRepaint(1),    ; force repaint, restore default AutoRepaint~out(e) ; output flags if direction changed
  14. 5. 
  15. 6. 
  16. 7. 
  17. 8. 
  18. 9. 
  19. 10. 
  20. 11. 
  21. 12. 
  22. 13. 
  23. 14. 
  24. 15. 
  25. 16. 
  26. 17. 
  27. 18. 
  28. 19. 
  29. 20. 
  30. 21. 
  31. 22. 
  32. 23. 
  33. 24. 
  34. 25. 
  35. 26. 
  36. 27. 
  37. 28. 
  38. 29. 
  39. 30. 
  40. 31. 
  41. 32. 
  42. 33. 
  43. 34. 
  44. 35. 
  45. 36. 
  46. 37. 
  47. 38. 
  48. 39. 
  49. 40. 
  50. 41. 
  51. 42. 
  52. 43. 
  53. 44. 
  54. 45. 
  55. 46. 
  56. 47. 
  57. 48. 
  58. 49. 
  59. 50. 
  60. 51. 
  61. 52. 
  62. 53. 
  63. 54. 
  64. 55. 
  65. 56. 
  66. 57. 
  67. 58. 
  68. 59. 
  69. 60. 
  70. 61. 
  71. 62. 
  72. 63. 
  73. 64. 
  74. 65. 
  75. 66. 
  76. 67. 
  77. 68. 
  78. 69. 
  79. 70. 
  80. 71. 
  81. 72. 
  82. 73. 
  83. 74. 
  84. 75. 
  85. 76. 
  86. 77. 
  87. 78. 
  88. 79. 
  89. 80. 
  90. 81. 
  91. 82. 
  92. 83. 
  93. 84. 
  94. 85. 
  95. 86. 
  96. 87. 
  97. 88. 
  98. 89. 
  99. 90. 
  100. 91. 
  101. 92. 
  102. 93. 
  103. 94. 
  104. 95. 
  105. 96. 
  106. 97. 
  107. 98. 
  108. 99. 
  109. 100. 
  110. 101. 
  111. 102. 
  112. 103. 
  113. 104. 
  114. 105. 
  115. 106. 
  116. 107. 
  117. 108. 
  118. 109. 
  119. 110. 
  120. 111. 
  121. 112. 
  122. 113. 
  123. 114. 
  124. 115. 
  125. 116. 
  126. 117. 
  127. 118. 
  128. 119. 
  129. 120. 
  130. 121. 
  131. 122. 
  132. 123. 
  133. 124. 
  134. 125. 
  135. 126. 
  136. 127.
  137.